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256K SUPEROM 
EXPANDER 

_| Select Instantly from H sockets 

which accept up to 32K EPROM each. 

j Program your own EPROM* using 
Our EPROM programer. 

□ No need to have Iota of cartridge* 
- just make a selection from the 
Superom menu. 

Q Fully menu driven on power up. 

_J Select any slol under software 
controls. 

^ Unique EPROM generator feature 
will take your own program* - basic 
or m/c ft turn them Into autostart 
EPROM*. (EPROM burner required). 
Q Accept* 2784/27128/27356 

EPROMs. 
_] On board unstoppable reset. 

J On board operating systems - no 
programs to load. 

ONLY £29.99 




RESET CARTRIDGE 

I Unstoppable reset button. 

NOTE:- user port cheaper type reset 
buttons offered by others are not 
unstoppable. 
J Reset* even so called "unstoppable" 

programs, 
j Add pokes from magazines etc. 
□ FHs In cartridge port. 
_| Simply plug In. 

ONLY £5.99 




3 SLOT 

MOTHERBOARD 

SAVE WEAR ft 1 EAR ON YOUR 
EXPANSION PORT 
_| Accepts 3 cartridges. 
Switch In/out any slot. 
Onboard safety fuse. 
Fully buffered. 
High grade PCB- 
Rcsei button. 



J 
J 
J 
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FULL MIDI INTERFACE FOR THE 
64/1 28 AT A REALISTIC PRICE. 

J MIDI ln/MlDI thru/2 x MIDI out. 

_J Compatible with most leading 
software packages. 

ONLY £29.99 




DIGITAL SOUND 
SAMPLER 

_J The new sampler allows you to 

record any sound digitally into 

memory ft then replay it with 

astounding effects. 
_J Playback forwards /backwards with 

echo/reverb/ring modulation. 
_) Now with full sound editing module 

to produce outstanding effects. 
_] Full 8 bit D to A ft ADC conversion. 
_| MIDI compatible with suitable 

Interface. (I.e. Date) unit for 

£29.99. see ad.), 
j Live effects menu Includes real 

time display of waveforms. 
Q Line in/raic In/line out/feedback 

controls. 

_| powerfull sequencer with editing 

features. 
_| Load/save sample. 
_j Up to 8 samples in memory at one 

(ime. 

J Tape or disk (please state). 
Q Complete software/hardware 
package. 

O NLY £49.99 
COM-DRUM 

DIGITAL DRUM SYSTEM 
_] Now you can turn your digital sound 
sampler into a digital drum system. 
J 8 digital drum sounds In memory at 

one time. 
_| Complete with 3 drum kit*, 
j Real drum sound* - not syntheslsed. 
j Create superb drum rhythms with 

real ft atep time. 
_] Full editing. Menu driven. 
_| Output to hl-0 or through TV 
speaker. 

Load/save facilities. 



IJ 

ONLY £9.99 

STATE TAPE OR DISK 



OAT 




DEEP SCAN BURST NIBBLER 



f'M 



_J The most powerfull disk nlbbler 
available anywhere, at any price) 
Burst Nibbler is actually a two part 
system - a software package ft a 
parallel cable to connect the 1541/ 
1570/1571 to 64/128 (stale type). 
J What gives Burst Nibbler It's power? 
Conventional nibbler* have to 
decode the data from the disk 
before it can transfer It using the 
serial bus - when non standard data 
is encountered they are beat. Burst 
Nibbler transfers data as raw OCR 
code via the parallel cable without 
the need to decode It so you get a 
perfect copy of the original. 

_J • Will nibble up to 41 track* 
* Copy a whole disk in under 2 
minutes • Full Instructions 

ONLY £24.99 complete 



• Regular updates ■ we always 
ship the latest • Pitted in 
minutes - no soldering usually 
required # Full or 1/2 tracks 

• No need to buy parallel cable if 
you have Disk Demon/Dolphin etc. 

• Cable has throughbu* extension 
for other add on*. 

Wether to choose FaatHack'em or 
Burst Nibbler? Fast Hack'em la 
unbeatable value as an "all rounder' 
- with nlbblers, 1 or 2 drive copy, 
format, file copy. 1571 copy etc. 
etc.. so If you have a more general 
requirement perhaps Fast Hack'em 
Is for you. Burst Nibbler Is a pure 
nibbler second to none, for the 
reasons stated. So if It's just 
making backups you are interested 
In. there Is no other product to 
beat it! 



SOFTWARE 
ONLY C12.99 



CABLE 
ONLY E 14.99 



NOTICE 1968 COPYRIGHT ACT 

DATE I. ELECTRONICS Lid. neither authorizes or condones the use of lis products In 
repnxhu* copyright rndim.il. Il is illegal 10 make topics ol tuch material without the 
expressed consent ol rn|ivrlg]ii owners ur lliicr lirt-nccrs. 




ROBOTEK 64 

MODEL ft ROBOT CONTROL 
MADE EASY. 

_J 4 output channels - each with 

onboard relay. 
_] 4 input channels - each fully 

buffered TTL level sensing. 

_J Analogue Input with full 8 bit 

conversion. 
J Vo'ce Input for voice control. 

J Software features:- test mode/ 
analogue measurement/voice 
activate/digital readout etc. 

ONLY £39.99 

INCLUDING H A ROW AR Ef SOFTWARE/ 
MIC. ETC.ISTATE TAPE OR DISK). 




TOOLKIT IV 



THE ULTIMATE DISK TOOLKIT FOR THE 1540/1541. 




LI 



ONLY £16.99 



COM-DRUM EDITOR 

_J 24 drum sounds supplied on disk to 
enable you to construct your own 

drum kit. 
j Re-arrange sounds supplied with a 

rom-Drum to make new kits, 
j Load/save facilities. 

O NLY £4.99 disk on ly 
DATA RECORDER 

_] Quality Commodore compatible 
data recorder. 

[J Pause control, counter, etc. 

_| Suitable for 84/128. 

i_J Send now for quick delivery. 

ONLY £24.99 



J 



j 



j 



A disk toolkll Is an absolute must 
for the serious disk hacker. Toolkit 
IV has more features than most for 
less. 

DISC DOCTOR V2 • Resd ft write 
any track ft sector Including extra 
ft renumbered tracks. Repair 
damaged sector*. Look underneath 
read errors. 

HEADER/GAP EDITOR - Decodes ft 
displays ALL header Information 
including off bytes ft header gap. 
Rewrite the entire header ft header 
gap. Renumber sectors. Al*o edit 
soy sector tail gap. 

DISK LOOK - Sort directory. 
Recover lost ules. Display file start 
/cod addresses. Disassemble any flic 
program directly from the disk to 
SCREEN or PRINTER including 
undocumented opcodes. Edit Bam. 
FAST FILE COPY Selective flle 
copy. Works at up to 6 times 
normal speed. 



J FAST DISK COPY - Copy an entire 
disk In 2 minutes or lesa using 
■Ingle 1941. 

J FILE COMPACTOR - Can compact 
machine programs by up to 50%. 
Save disk space. Compacted 
programs run a* normal. 

_J FORMATTER ■ 10 second format an 
entire disk or format any Individual 
track or half track 0 to 41. Re-deflne 
any of 30 parameters to ctcslc or 
recreate unique disk formats. 



ERROR EDIT Quickly find ft 
recreate all read errors Including 
extras ft renumbered tracks or 
sectors ft half tracks from 0 to 41. 
Even recreate* data under errors ft 
allows you to redefine any 
necessary parameters. 



ONLY £9.99 



L'OM 1 
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NEW 

CLON EM ASTER 

J The mail effective tape to tape 

back-up board available. 
_| Makes perfect backup* of your tape* 

easily A effectively!! 
_] No met knowledge needed at all. 
_J On board TIL logic circuitry 

actually ahapea the program A 

sends a perfect signal to the record 

caaaelte - producing a copy better 

than (he original In many cafes. 
_] L.E.D. Indicator show* when data 

Is being transferred to avoid 

caesslve tape winding. 
J Works with almost any program 

including multi-loaders, turbos A 

even very unusual type turbos. 
J Requires access to two CBM 

compatible data recorders. 
_j Simply press 'Play" on one recorder 

A press Record' an the other - 

that's It! 

_j You can even make a backup while 
ynu are loading the program. 

J This is a total hardware solution • 
no programs to load - the results 
are stunning! 

ONLY £9.99 



TURBO 

ROMTi 





— SMART CART 



TURBO ROM II IS A 
REPLACEMENT FOR THE 
ACTUAL KERNAL INSIDE 
YOUR 64. IT PROVIDES 
SUPERFAST LOAD/SAVE 
ROUTINES. 

_J load* most programs at 5-tt times 

normal speed. 
_J Saves at 5-6 times normal speed as 

well. 

_| Improved DOS support including 

10 sec. format. 
_J Programed function keys: load. 

directory, old, etc. 

_| Return to normal kernel at a flick 

of a switch. 
|J FCOPY-250 block file copier. 
J FLOAD special I/O loader. 
_J Plus lots more. 
_J Fitted In minutes - no soldering 

usuallly required. (On some 64 'a 

the old ROM may have to be 

dcsoldered). 

ONLY £14.99 




BLUE CHIP DRIVE 




_J External power supply for cool 

operation, 
_] Even works In 1571 double sided 

mode (128 mode). 
_j Fully C64/12B compatible. 

_J This drive Is now probably the most 
compatible drive available for the 
Commodore. More so than even 
Commodores own 'I541C. 

_J Supplied complete with all cables - 
no more to buy. 

_J At last, a top quality drive at a 
sensible price. 

ONLY £129.99 

ADD £5.00 FOR COURIER 
DELIVERY 



ULTRA CRUNCHER 

J The ultimate cartridge based 

program compactor. 
_| Compacts by up to :w ■ 
_| 3 compacting program* on one 

cartridge. 
_1 Fast loading/ saving routines. 
J Full DOS support Including fast 

format. 

ONLY £12.99 

on cartridge 

Available as chip only for 
256K Superom Board ffrr 

ONLY £7.99 



FAST HACK EM 



I M 



J Mult! Module Disk Nlbbler - all on 
the one disk. 

_J Single 1541 Nlbbler - Copy an entire 
disk In Just 2 minutes. 

J Super fast File Copy - typically 
copies an average file in under 
9 seconds. 

_] No otber product Is such a good 
"All Rounder" at thla incredibly low 

price... 

ONLY £9.99 



J 32K pseudo ROM. 

_J Lithium battery lasts up to 5 years. 

J Simply load the program you require 
- then flick the switch. The cartridge 
can then be removed just like a 
ROM cartridge. 

_J Make your owncartridgea including 
autostart types without EPROM 
burner. 32K version = 4 x BK pages. 

_| Some knowledge or M/C Is helpful - 
but full Instructions Included. 

_J I/O 2 slot open for special 
programing techniquea. 

ONLY £29.99 
RAM DISK 

Q Turn your Smart Cart into a 32K 

Ram/ disk. 
_| 32K of instant storage area for 

files/ programs. 
Q Disk type commands;- load, aave, 

directory, scratch. 
|_J Program data retained when 

computer Is switched off! 
_] Full command set with Instructions. 

ONLY £9.99 



EPROMMER 64™ 

J A top quality, easy-to-use EPROM 
programer for the 64/128. 

Fully menu driven software/ 
hardware package makes 
programing/ reading/ verifying/ 
copying EPROMs simplicity itself. 

_J Will program 2716. 2764. 27128* 
27256 chips. I2.S. 21 or 25 volts. 

_J Fits into user port for maximum 
compatibility with cartridges/ 
Superom Board etc. 

_J Full feature system - all functions 
covered like device check/verify. 

J We believe Eprommer 64 Is the most 
comprehensive, most friendly A best 
value for money programer available 

for the 64/128. 

_J Ideal companion for Superom Board. 
Cartridge Development System, our 
kcrnal expanders or Indeed any 
EPROM base project. 

i_J Comes complete with instructions - 
plus the cartridge handbook. 

ONLY £39.99 

COMPLETE 



BLAZING PADDLES 

A COMPLETE LIGHTPEN/GRAPHICS ILLUSTRATOR 
PACKAGE. 

Q A fully Icon driven graphics 

package of a calibre which should 
coat much, much mate. 

□ Complete with a fibre optical 
llghtpen system Tor pin point, 
accuracy. 

J Pictures can be saved from Action 
Replay' A edited with Blazing 
Paddles. 

J Blaring Paddles will also work with 
many other input devices 
including:- Joysticks. Mice. 
Graphics Tablets. Trackball, etc. 



^ Hull) feature software Including:- 

• Range of brushes •Airbrush 

• Rectangle • Circle 

• Rubbcrbandlng 4 Lines 

• Freehand • Zoom mode 

• Printer dump • Load/save 

• Advanced colour mixing - over 
200 hues! • Cut ft paste allows 
shapes /windows/pictures to be 
saved to/from tape/dlak. 

ONLY £24.99 

COMPLETE BLAZING PADDLES & 
LIGHTPEN 

BLAZING PADDLES ONLY 

£12.99 



ALL ORDERS NORMALLY DESPATCHED WITHIN 48 HRS 

HOW TO ORDER ...I 


BY PHONE 


BY POST 


FAX 

0782 744292 


EST? 3E 


>x 


0782 744707 
24hr Credit 
Card Une 


Send cheuues/POs made 
payable to 
"Datel Electronics' 


UK ORDERS POST FREE 1 
EUROPE ADD £1 1 
OVERSEAS ADD £3 1 


PRICES AND SPECIFICATIONS CORRECT AT TIME OF PRESS j 
AND SUBJECT TO CHANGE WITHOUT NOTICE 


CALLERS WELCOME Please reserve gooda by telephone prior to visit. 




DATEL ELECTRONICS LTD.. FENTON INDUSTRIAL ESTATE 
GO VAN ROAD. FENTON. STOKE-ON-TRENT, ENGLAND. 


SALES ONLY 
0782 744707 


TECHNICAL ONLY 
0782 744324 
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Modem Moves 



Modem Marketing is a 
new company which 
has been formed to sell 
Dataphone communications 
equipment to the UK's com- 
puter dealers. Principally 
this means that the Demon 
II (£79.95 + VAT) and 
Designer (£99.95 +VAT) 
modems should soon he 
given a higher profile. 

The Demon 11 auto dial, 
answer and baud search can 
handle all of the common 
communications protocols 
but lacks the over-ride but- 
ton, telephone socket and 
call progress monitoring 
facilities possessed by the 
Designer. 

Touchline: Modem Market- 
ing, 611 Lincoln Road, 
Peterborough PEl 3 HA. 
Tel: (0733) 52440. 
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opinions of the reviewers and 
not necessarily those of the 
magazine. While every effort is 
made to thoroughly check pro- 
grams published for errors we 
cannot be held responsible for 
any errors that do occur. 
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ABC 



Space Horror 



Project Firstarl is the 
computer equivalent of 
a sci-fi, horror and suspense 
movie, according to its mak- 
ers Electronic Arts. Replete 
with close-ups, fade-outs 
and other movie gimmicks, 
the game is available for the 
C64 (disk only) for £14.95. 

A parting of the ways 
with EA has meant that 
Accolade has been trying to 
decide whether to go it alone 
in Britain or sign up with 
another American company 
such as Microprose. At the 
moment, no-one is talking, 
so watch this space... 

Touchline: Electronic Arts. 
Langtey Business Centre, //- 
49 Station Road. Langlev. 
Slough, Berkshire SL3 8 YN. 
Tel: (0753) 49442. 



Data 
Statements 



Tele Ported 




The new Microprose development learn (clockwise from top left): Peter 
Moreland, Sieve Perry, Tony Bickley and Paul Hibbard. 



Three members of Tele- 
comsoft have defected 
to the Microprose HQ in 
Tetbury. The trio of Steve 
Perry, Peter Moreland and 
Paul Hibbard have joined 
the company as part of the 
expansion drive initiated by 
company boss (Wild) Bill 
Slcaley. 

This swells the Micro- 
prose development team to 
four, which means that sev- 
eral British made products 
should be appearing later 
this year. 



A former magazine jour- 
nalist. Martin Moth, has 
also been attracted to the 
company as its public rela- 
tions manager and Martin 
Bull, erstwhile sales manager 
with Aclivision, is now 
doing the same good work 
for microprose. 

Touchline: Microprose, 2 
Market Place. Tetbury, 
Glos. GL8 8 DA. Tel: (0666) 
54331. 
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Jacko Peps Up 
Gold 



US Gold are claiming to 
have signed a deal for 
the rights to the computer 
version of M ichael Jackson's 
Moonwalker. 

US Gold tried to climb 
on the Jacko bandwaggon 
by getting the maestro to add 
his magic touch to Thun- 
derblade. The link with the 
pop star was their mutual 
dealings with Pepsi Cola but 
the plans came to nothing. 
The new deal is probably the 
biggest chance that US Gold 
have had for massive pub- 
licity and they're not ruling 
out the possibility of video 
lie-ins and extensive 
marketing. 

The game is planned for 
release in autumn, but will 
US Gold hold it back for the 
Christmas rush so that they 
can regain their crown from 
Ocean? One thing's for sure, 
it'll cost them more than a 
monkey. 

ToucMine: US Gold, Units 
2/3, Holford Way. Bir- 
mingham B6 7 AX Tel: 021- 
356 3388 



Kingputers 



A little bit of fun never 
hurt anyone, and our 
attention has been drawn to 
an amusing paperback of 
computer-based cartoons. 
Featuring the characters 
from the king Tutt strip 
cartoon. Down With Com- 
puters is packed with vari- 
ations around the theme of 
ancient Egyptians and their 
abacus computers. 

It may seem like a limited 
joke, but cartoonist Geoff 
Watson has managed to 
sustain the humour from 
cover to cover. 

King Tutt - Down With 
Computers is published by 
Ravette Books (ISBN I 
85304 094 0) and costs £1.95. 

ToucMine: Ravette Books, 3 
Glenside Estate. Star Road. 
Partridge Green, Horsham. 
Sussex RH13 8RA. 



Footballs 



Grandslam Entertain- 
ments' latest announce- 
ment - that Liverpool Foot- 
ball Club have endorsed the 
company's next football 
game - is surprising, to say 
the least. As yet the prospec- 
tive game consists of a rather 
uninspiring title, Liverpool: 
The Computer Game, and 
the vague but obvious con- 
cept that it will be a football 
game. 

Perhaps this is sufficient 
for an endorsement, but as 
Stephen Hall, Grandslam's 
managing director, says, 
"Now we're ready to take on 
the challenge of producing a 
game that will match the 
enormous stature that Liver- 
pool Football Club enjoys." 
1 doubt if Liverpool would 
be pleased to endorse it if it 



turns out like the Peter 
Shilton game. 

In a further burst of 
overcon fide nee. Hall con- 
tinues, "The popularity of 
this type of product, plus 
what we consider the grea- 
test sports licence yet seen in 
this market, means we've got 
a real winner on our hands." 

So it would appear that 
all you need to do is to 
produce a football game and 
you're half way to gaining a 
licence to print money. 

Touchline: Grandslam 
Entertainments. 12-18 Paul 
Street, London EC2A 4JS. 
Tel: 01-247 6434. 




Value Added Virus 



When the Friday 13th 
virus struck last Jan- 
uray most people threw up 
their hands in horror and 
panicked. Not so for S&S 
Enterprises. They quickly 
realised that there's money 
in them there ills and pro- 
ceeded to produce a diagnos- 
tic disk for a 'nominal' £5 a 
throw. 

The virus, known to its 
enemies as 1813 because of 
the number of bytes that it 
occupies, secretes itself on a 
disk and waits for Friday 
1 3th tocome around. On the 
assigned date is happily 
wipes any file that comes 
near it and slows down the 
computer's processing 
speed, thereby causing great 
confusion. 

Although there was an 
outcry last January and the 
news hit the daily newspap- 
ers, only three affected sites 
have been drawn to the 
attention of S&S, which 
poses the question of what 
was evcrone shouting about? 

ToucMine: S&S Enterprises, 
Weylands Court. Water 
Meadow, Germain Street, 
Cheshant. Bucks HP5 I LP. 
Tel: (0494) 791900. 



Bye Bye Budget 
Buys? 



After Code Masters 
announcement that its 
product prices were to be 
increased by £1 to £2.99, 
there has been a rush by 
other budget houses to deny 
that they will soon be fol- 
lowing suit. 

Paula Byrne (Silverbird) 
has confirmed that the com- 
pany will maintain a £1.99 
range but that releses will be 
fewer and further between. 
Other houses such as Alter- 
native and Mastcrtronic are 
also trying to keep prices 
down but iheir launching of 
higher priced labels does 
leave the door open for them 
to abandon the lower price 
range whenever necessary. 




DOWN WITH 
COMPUTERS! 
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Weird TV 



One of the hits of the 1988 
PC Show was the ST 
version of Rainbird's Weird 
Dreams, and now it's been 
taken up by ITV's Motor- 
mouth, who knows what will 
happen to it when it becomes 
available for the C64 and 
Amiga? 

The TV game is a bit of 
a cheat really because the 
sound effects are created 
through a MIDI interface 
using an Akai sound effects 
box and the game itself has 
been reworked to run on an 
Atari ST Mega 2, not the 
sort of gear to be found in 
the average home. 

Don't be put off too 
much by this information 
though, the game did look 
v-e-r-y good at the Show. 

Touch/ine: Rainhird Soft- 
ware. First Floor, 64-76 New 
Oxford Street, London 
WC/A IPS. Tel: 01-631 
5373. 



Cheap Mannesmann 



Bingo, It's Bob 



Domark are releasing the 
computer version of 
BBC TVs quiz show. Bob's 
Full House. Although they 
can't offer Bob Monkhousc 
himself, don't start counting 
your blessings because 
they've included a stupid 
little 'acid house mouse' that 
breakdances its way through 
the game. 

Up to four contestants 
can battle it out as they try 
to become the one who will 
go on to the Golden Bingo 
Game. If you want to run 
the risk of being 'wallied' 
then this is the game for you. 

ToucMine: Domark, Ferry 
House, 51-57 Lacy Road, 
Putney, London SW1 5 1 PR. 
Tel: 01-780 2222. 





Have you noticed how 
companies prefer to say 
'entry level price' rather than 
cheap or even affordable? 
The latest candidate is the 
Mannesmann Tallv MT8 1 at 
£149. 

This nine-pin dot matrix 
machine breaks with tradi- 
tion by employing square 
rather than round pins and 
Mannesmann claim that this 



enables a better looking 
NLQ printout. Another fea- 
ture not usually found in this 
price range is a paper park- 
ing facility which makes 
switching back and forth 
from sheet feed to tractor 
feed a lot less fiddly. 

Epson and IBM compat- 
ibility and a speed of 180 
characters per second at 10 
characters per inch (26 cps 



in NLQ) should ensure that 
the MT 81 carves its own 
niche in the market or at 
least proves more than an 
empty threat. 

Touch/ine: Mannesmann 
Tally, Molly Millar's Lane. 
Wokingham, Berkshire. Tel: 
(0734) 788711. 




This year's British Inter- 
national Toy and 
Hobby Fair was a bit of a 
disappointment. Nothing 
seemed radically new and 
there seems to be a move 
away from computerised 
toys towards the less expen- 
sive to make ones. The more 
adventurous show-goer 
could fight their way 
through Perky Bunnies, 
Magic Shrinkles and Yaw- 
nies to find the star of the 
show - the Konix games 
machine. 

What has horseshoes 
and horns and appears on 



television? The Konix Multi- 
System, that's what. Man, it 
is weird stuff! I've never seen 
anything like it before. The 
base is the horseshoe and the 
horns are formed by an 
adjustable set of handle bars 
(or a steering wheel if you 
bend them another way). 

The processor is a mere 
16 bit affair, and the co- 
processor which controls the 
graphics and sound is 32 
bits. All this makes the 
machine very fast indeed, 
but the demonstration pro- 
gram at the show didn't look 
too impressive graphically. 



The program development 
houses are complaining 
because they haven't been 
given the full information on 
the machine so that could be 
why the graphics looked like 
high speed 8 bit games. 

Vm sure that the Konix 
is capable of better things 
but on the evidence so far 
I'm unimpressed. 

Touch/ine: Konix Products. 
35 Rassau Industrial Estate, 
Ebbw Vale, Gwent NP3 
5SD. Tel: (0495)350101. 
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DIMENSION 

computers Ltd. 



40/50 High Street 
Leicester LE1 5YN 
Tel: (0533) 
517479/21874 
THE MIDLAND'S LARGEST COMPUTER STORE 




AMIGA B2000 PACK 

Amiga B2000 Computer, Commodore 
1084 Monitor, PC/XT Bridgeboard, 
20Mb Hard Disc E1.399.00 + VAT 



AMIGA RANGE 



AMIGA A5Q0 PACK 1 

with Mouse, Workbench. Basic and 
TV Modulator 



£359.00 



AMIGA BUSINESS PACK 

• Amiga A500 computet 

• 1064S High Resolution Colour Monitor 
" CitWen 1200 printer 

■ Monitor and printer cades 

• Trie works- integrated spreadsheet, wardpiocessor and 
Database 

■ Transformer -PC Emulator £799.00 



Amiga B2000 Computer 

Commodore 1084 Colour Monitor .... 

Phillips B833 Colour Monitor 

Tnlogic Audio Oigitue' 

AF880 1 Mb A50G 3.5' External Drive 
Cumana 1 MD A500 3 5' External Drive 

Amifla Power Supply Unit 

Internal A2000 2nd Orive 

Amiga Midi interface . 

Diglview Colour Digitiser 

Supra30MDA5OOHardDisc 

2MD Internal HAM Expansion .. 

PAL Genlock A5O0/A2O00 .', „ 
AS00 512K RAM Upgrade 



E 1.0 79. 00 
EZ69.95 
£ 224. 95 
£27.95 
E89 95 
£99.95 
E59 95 
. £79.95 
E34.95 
E139.95 
£699.00 
£44900 
£219.95 
£129.95 



AMIGA A500PACK2 

with Mouse, Workbench, Basic, 

TV Modulator, Formula 1, Footman. Viper, 

Mousetrap and Plutos £379.00 



AMIGA A500 PACK 3 

with Mouse, Workbench, Basic, Photon 
Paint, TV Modulator, plus SUPERBASE 
Database £399.00 



LIMITED OFFER 

PHILIPS 8802 COLOUR MONITOR 

lor CBM 64 . 128 or AMIGA £169.95" 

"Available only while present slocks last 



AMIGA A500 plus 

PHILLIPS 8833 STEREO 

MONITOR £569.00 

AMIGA A500 plus 

COMMODORE 1084 MONITOR . £629.00 



STAR LC10 COLOUR DOT MATRIX 




• t20 cps Drall. 30 cps NLO 




• 6 Resident Fonts and 6 Print Pitches 




■ Drati and NLO In all Fonts and Colours 




• 7 Colours plus MultipleShade Graphics 




Includes AMIGA Printer Lead 


£249.95 



PHOTON PAINT 

The AMIGA'S most powerful graphics pack 



£69 85 



AMIGA SUPERBASE PERSONAL DATABASE 

• Extremely powerful yet easy lo use 

» Flexible File Structure and Definition 

• Powerful Report Generator 

• Over 150.000 users i5Wf £39 95 



TRILOGIC AUDIO DIGITISER 

Digitises sound from any source £27.95 

MINIGEN VCR Graphic Overlay System 

Superimposes graphics onto VCR input C99.95 



BBC EMULATOR 

Emulates BBC Baste — also works wilhi i 
Amiga Multitasking Operating System . . 



E44 95 



STAR IC10 DOT MATRIX PRINTER 

• 120 cps Draft, 30 COS NLQ 

■ Friction and Tractor Feed 

• Paper Parking Facility 

■ B Resident Fonts and 6 Dillereul Print Pitches 
Selectable Irom Front Mode Select Panel 

Commodore Serial or Centronics 

Commodore 64M28 Colour Version . „. 



£199.95 
E249.95 



PRINTER RIBBON OFFER 

MPS 801. 802. Citizen 120D and 

StarNLIORibbons 

MPS 803 S MPS 1000 

DPS H01 Mull. Slnke 

BUY FOUR AND GET ONE FREE' 



£5 95 
£4.95 
E3.50 



PRINTLINK 

Allows AMIGA to use CBM Senal or Standard Centronics 
Primers. w»lh the Bonus ot a 60K Buffer £34.95 









£129.95 


Commodore Compatible Disc Drive 




Both include: 




Sol tw are Pack 




12 Selected Disc-Based Games' Utilities 





LIMITED OFFER 

COMMODORE 1561 3.5' DISC DRIVE 



paS-95" £139 95 



CBM64 YAMAHA PACK 

Commodore 64. C2N Data Recorder, 30 Games Pack. 
Bush Walkman plus YAMAHA SHSIO MIDI COMPATIBLE 
KEYBOARD £199 95 



SUPER G 

CBM to Centronics Prmtei Interface . ... 
MPS 803 TRACTOR FEED UNIT 

COMPOSER ' EDITOR SOFTWARE 

For Music Expansion System. Tape 0' Oisc 

ACTION REPLAY Mk 5 PRO 

Tape to [.' v Back-up Cartridge 

NEOS MOUSE 

With CHEESE Software, Tape or Disc .... 
COMMODORE C2N DATA RECORDER 
HANDIC DIARY 

With Label Printer. Cartridge 

MUSIC MAKER 128 

Keyboard andSoltware. Tape 

LOGO 64 

Prognmming Language, Disc 

PRACTICALC 64 

CBM 64 Spreadsheet. Tape 

CBM 64, 12B Motherboard 

3SioiSwii(hable *iih Reset 



£34.95 
E29.95 

£24.95 

£34.95 

£24.95 
£29.95 

E9.95 

£9.95 

£9.95 

£9.95 

£16.95 



REMARKABLE COMMODORE PC1 OFFER 

Unboatably priced PC'XT compatible, including extremely 
compact base unit, detachable keyboard and monitor 
Compatible with all Ihe ma|or PC/XT software, the PCt now 
represents Ihe lowest price lor specification PC compatible 
in the UK. 

- 8088/4.77MH; Processor 

• 512KRAM 

• Serial and Parallel Ports 

• MSIJOS3?andGWBasic 

■ ABLE ONE Integrated Spreadsheet. Wordprocessorand 
DataBase package (usual price £113.001 

PCi with Mono Monitor £299.00 - VAT 

PC1 with CGA Colour Monitor £449.00 • VAT 

PCt Package without Monitor 
Compatible with CBM 1084 and mosl 

CGA/Herculescompalible monitors £269.00* VAT 

PC1 EXPANSION BOX 

With 3 Expansion slots £99.00*VAT 

Expansion Box with 20Mb Hard Disk £299.00 * VAT 



CBM64 HOLLYWOOD PACK 

Commodore 64, C2N Data Recorder Qutttshol 2 Joystick, 
5 Hollywood Games. 5 TV Quiz Games, plus 25 Arcade 
Games £149.95 



CBM 64 OLYMPIC PACK 

Commodore 64, C2N Data Recorder. Quickshol 2 Joystick 
10 Sports Games plus 25 Arcade Games £149 95 



CITIZEN 1200 OOT MATRIX PRINTER 




Commodore version 




I wilh 64/ 128 Printer Lead) ... . 


£139 95 


Cent i on ics version 




(with AMIGA Printer Lead) 


£13995 


Commodore 1901 Colour Monitor 


. E2 19.95 


Philips 64/t?8 Green Screen Monitor 


£69.95 


MPS 120OP Dot Matrix. Printer. Centronics 


£219.95 


MPS 1500C 7 Colour Dot Matrix, Centronics 


£339.95 


1561 3'" Disc Drive including 10 x 3t* Discs ... 


£199.95 



COMMODORE 1351 MOUSE 

Compatible with GEOS plus all GEOS Utilities 

Can also be used as Joystick 

PRECISION 

Superscript 64 

Superbase64 

Superscript 64 

SSuperbase64 .„.,. 

Superscript 128 

Supflroase128 

Superscript 126 

4Superbase1?8 

Superbase. The Book 

CBM 64. 128 and PLUS 4 COMPANIES PACK 

Sales/Purchase' Nominal Ledgers with Invoicing and 
Slock Control Disc 



£27.95 

£24 95 
£24.95 

£44.95 
E29.95 
£29.95 

£54.95 
£11.95 



£24.95 



n 



PERSONAL CALLERS AND EXPORT ENQUIRIES WELCOME 

ALL OFFERS STRICTLY SUBJECT TO AVAILABILITY 

ALL PRICES SUBJECT TO CHANGE WTHOUT NOTICE 

ALL PRICES INCLUDE VAT UNLESS OTHERWISE STATED 

To ontor c">0' sendcheque'P 0 win coupon or ring (05331 517479/21B74 wilh 
Access'Bardaycafd number Please allow 7 wo'tiing days lor delivery from recerot ol order oi 
cheque clearance 

Please add CI 00 towards carnage and packing on any software orcJet 
Hantware orders add C 1 00 unOBi C65 00 value . and CS OQ ever CBS CO v«hM 
Pnnlet vdori add £5.00 lowards carriage 

Send to. Dept. No. YC 4. Dimension Computers Ltd,, 
40/50 High Street. Leicester LE1 5YN. 
Tel: 10533) 517479/621874 Fax; (0533) 511638 



Item 



Quantity i Price 



Total 



Name 

Address. 



Telephone: 



G A M K S RE V I E W S 




Tec 



a quipped with the most powerful handgu 
mankind, and the latest high-speed pursuit vehicle, 
you are one of the new breed of law enforcement 
agents. You mission is to seek out and destroy Members 
of the DOA (Death on Arrival) gang. 

The game has two parts, the first of which is a car chase, 
during which you gel the chance to blow every other vehicle 
off the road with an ever-increasing array of weaponry. 
Should high-powered cannons and tactical nuclear weapons 
prove insufficient for your needs, you can always try ramming 
them instead, although this increases the damage to your 
car (apparently exploding nukes don't even scratch the 
paintwork). 

Once the onboard computer has informed you of your 
mission (rather small, difficult to read print here) you start 
the second part of the game, exploring deserted buildings 
and blowing away sundry riff-raff who come at you with 
whips, knives and guns. A criminal detector radar on your 
wrist points the way to your target, although your actual 
route may be more indirect as you try to find a path through 
the rubble and debris. As a slight variation, some of the 
criminals have to be brought in alive by capturing them in 
your net. and there are bonuses awarded for recovering stolen 
property. Both the car chase and this part of the game are 
against the clock. Succeed in your mission and you'll be 
promoted, but there is no real penalty for failure, only the 
occasional minus score for killing an innocent bystander. 

1 suppose it would have been too simple to use your 
criminal detection radar and then nuke the building from 
afar, but that wouldn't be cricket, would it. There have been 
better race games, and better seek-and-destroy games this 
hybrid falls between those two stools. 

Title: Techno Cop. Supplier: Gremlin Graphics, 10 Carver 
St. Sheffield SI 4FS. Tel: 0742-753423. Price: £9.99 (cass). 




SCORE : 00069000 NETS : i5 
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Mini - Golf 
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irn of the Jedi is the third in (he Star Wars saga 
be released by Domark, and the plot (as if you 
idn't know) follows that of the film, 
'ou play Luke Skywalker, trapped on the planet Edor. 
home of the Ewoks and crawling Emperial biker scout*, You 
steal one ot their bikes and head for the Ewoks' village. 
The scouts are not at all happy about this, and set off in 
hot pursuit. 

Careering through a forest at breakneck speed is no easy 
lask - you must dodge the trees and Biker Scouts until you 
reach the safety of the Ewoks' village. Once at the Village, 
you control Han Solo and Chewbacca. his hairy sidekick. 
You must guide Chewy, and his stolen scout walker, through 
the forest. 

Your destination is the bunker, were Han Solo is waiting 
to shut down the shield of the evil Deathstar. While you're 
playing on this level, the action switches to the Millenium 
Falcon speeding towards the Deathstar, and then back to 
the forest. 

Once the bunker is reached and blown to bits by Han 
you then move on to the final level, the Deathstar. Here, 
your task is to guide the Falcon to the centre of the Deathstar 
and blast the reactor, destroying the Deathstar and saving 
the universe. 

1 thought Domark would have made the effort to produce 
a fairly decent version of the arcade game, but this is way 
off the mark. The sound is average, the graphics crude and 
bloeky. 

Gameplay is ruined by the control for example you 
must wrcastle with the joystick to control the Spcederbike, 
as it whizzes all over the screen. I'm afraid I cannot whole- 
heartedly recommend this game. 

Touchline: 

Title: Return of the Jedi Supplier: Domark, Ferry House, 
Law Road. London SWI5. Tel: 01 -.7 HO 2224. Price:£l4.99 



This could have been a most enjoyable simulation, but 
as it is, Mini-Golf from Magic Bytes is let down by 
some dreadful presentation both in the game itself and. 
more especially, the instructions. 

The course includes the usual mix of mini-golf features 
- raised plateaux, bends and corners to negotiate and tunnels 
to aim through. Par is indicated for each hole, although there 
are an alarming number of par ones, meaning that you have 
to be inch-perfect on the shot. 

Control of the shot comes in three parts. The ball must 
be placed on a tee area, although why the program doesn't 
do that for you is beyond me. A line radiating from the 
balls position then determines both the angle of the shot 
and. depending on how long you make the line, the power 
behind it. It's tempting to try and be clever and do everything 
with just one clever shot, but prudence soon dictates that 
it's belter on occasion to tap the ball a few inches first, and 
thus gain better position for the next shot. 



Up to four people can play, although there is no indication 
on the screen as to whose turn it is. There are supposed 
to be two courses, beginners, and experts although so far, 
I've only managed to access one of them. Perhaps this is 
because I've not yet recorded a good enough score to qualify, 
or perhaps the second course only appears on the Amiga 
version. The instructions, which are quite dreadful, give no 
help whatsoever here. 

Initially fun, this game offers little in the way of any 
lasting challenge. You soon gel to know all the best angles 
for any given shot, and can then repeal it more or less at 
will. A wasted opportunity. 



Touchline: 
Title: Mini Golf. 
Supplier: Magic Bytes. 
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and the Alien Mindbenders 



r« m/i*« imc mien in iriuveriut 
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Imagine the most ridiculous plot that you've ever you pick up are nol those normally associated with 

encountered n an adventure game and double it. I adventures. A random assortment from the first few 

line fn?Z J ? T" ' 28 '"K**^!* I* ^ ' 0Ca,i ° n5 inC,Ude 3 ^ ka * 00 ' fish bowl a "d Groucho 

line in Zak McKracken and the Alien Mindbenders. But Marx nose and glasses set 

WrU,e g nT « iK^^i , r • , As y0U SCleCl differem command.. Zak acts them out 

Written as a spoof on The National Enquirer (which on screen, moving to pick things up. open cupboards and 

roughly equates with our own Sunday Sport), reality is switch things on. This is a system that works well anti adds 

whoirnn, 0 ™ '" , £ye H ° f '"r l MMe - F ° r any ° ne qui,e a dceree of rcalism < some "ould »y the ™i? dcS* 

« n?. V cnc ° unlc ^ one of these journals, typical to the game. There is also a certain amount of artificia 

moon and the C ? T ! , ' b ° mberS ^ ime " igenCe USed in ,he P™*™ 1 here lf - for v°» 

3„« ,i, . H'tler was really a woman. These try to get object A with object B. Zak will go and pick 

headlines alternate on a fortnightly basis with any other up object B first, if he does not already own it 

bit of nvetting investigative journalism on any subject One of the problems with games of this' type is that 

£3£ribi. word ' AL1EN ' fea,ures ^'^m^i^^^b^LWS 

prominently m the headline. provided , eilher |h h J drawi over .p r ecise 

Anyway, back to the real plot. The year is 1997, and positioning of a cursor Here, a "what is' eommandTts 




■•j^g 4^1 IB ^^^^^^^^^^^^ 




the world is getting progressively more and more stupid. 
Not because they insist on reading newspapers such as those 
listed above, but because ALIENS have taken over the 
telephone company, and are pumping mysterious moron 
rays down the phone lines. Now all you need is a couple 
of people who travelled to Mars in a converted van. a few 
two-headed squirrels, the Bermuda Triangle, visits to 
Atlantis and you will have destroyed the stupidity machine 
in no time at all. 

The game involves no typing whatsoever - all the 
commands that you need are listed in a menu at the bottom 
of the screen. Although this severely limits the number of 
things that you can do, it does mean that you don't have 
to keep seaching for exactly the right combination of words 
all the time. In fact, most of the puzzles reduce themselves 
to using the right object in the right place. Lateral thinking 
is definitely the order of the day here, as the sort of objects 



you examine a location thoroughly, telling you which objects 
arc part of the game, and which merely decoration. 

Because of the apparent randomness of some of the 
puzzles, the game comes complete with a copy of 'The 
National Inquisitor', which provides many a subtle, and 
not-so-subtle hint. 

Zak McKracken is a quirky sort of game that some players 
will love, and others thoroughly detest. If what you have 
read in this review strikes you as being childish in the 
extreme, then I would suggest that you give it a wide birth. 
Personally. I thought it was like a breath of fresh air, but 
then again, I am writing this review with a crayon from 
somewhere inside my padded cell. 

Title: Zak McKracken and the Alien Mindhenders, 
Producer: Lucasfilm Games. c/oVnit 2 & 3 Holford Way 
Holford Birmingham H6 7 AX. Price: £14.95 (disk). 
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^ Award Maker Plus 

Honour and thank people with more than just kind words or a 
letter— give them an award they'll keep for ever. With Award 
Maker Plus you create professional quality certificates with 
coloured or black, detailed borders, specialized graphics, and 
personalized messages, ready for framing. 

Award Maker Plus is a software tool that lets you print awards, 
certificates, licenses, coupons, diplomas or other documents of 
your design. The program will print hundreds of predesigned 
Award Styles, allowing you to enter text, select the border style 
and colour, and in some styles even enter your own Hi-res 
pictures. Also, PrintShop graphics may be used as borders. The 
program comes complete with professional quality border 
designs, text fonts and graphic art. Only £24.95. 

[> 1764 RAM Expansion Unit 

The Commodore 1764 RAM Expansion Unit adds 256K of storage 
capacity to the 64. four times the internal RAM, and comes with a 
replacement power supply to power both the computer and unit 
RAMDOS software is supplied free to allow commercial programs, 
written for the unit to use it as a second, lightning speed drive. 
The 1764 Unit is ideal for programmers, GEOS users and users who 
need a second drive. Only £99.95 

^ Paper Clip Publisher 

If you'd like to create eye-catching layouts, but don't enjoy 
playing with scissors and glue, Paper Clip Publisher has the 
solution. This powerful page layout program for the Commodore 64 
lets you combine text from your favourite word processor and 
graphics from your favourite drawing program to create almost any 
layout you can think up. 

To place an article into your layout, simply draw a box and pour in 
the text. Or draw several boxes and link them together, so the 
article is in several columns, or even on several pages. If you want 
the text to stand out, choose one of five fonts in any of four sizes. 
Then, give il some style— you can make it bold, italic, outlined, 
shadowed, reversed, or even upside down! Graphics are always a 
great way to get a readers attention PaperClip Publisher lets you 
use clip art from Doodle, Newsroom, Print Shop, Printmaster, and 
Stop Press. You can also create simple graphics in PaperClip 
Publisher's Graphics Editor. Once you've selected a graphic, 
simply pour it into your layout, then enlarge or reduce it to fit your 
specific needs. 

PaperClip Publisher is a powerful layout tool but, more important it 
is also easy to use. Your tools are displayed right on your screen- 
you simply point and click with your joystick or mouse. Other 
powerful commands are available in pull-down menus, so you don't 
have to go searching through your manual to find a command. 
Whether you are creating a single-page advertisement or a 
multiple-page newsletter, PaperClip Publisher will help you get the 
job done quickly and professionally. Only £34.95. 



£> BillBoard Maker 

Are you restricted by the normal one page graphics? Would you 
like to be able lo print posters four feet by three feet? Now you 
can, using BillBoard Maker, store the graphic to disk from any of 
the popular drawing packages and then load it back with BillBoard 
Maker. The optimizer will enlarge the display and also remove any 
jagged edges and then you can flip, crop, cut, mirror, strip colour, 
negative or frame the new image and then print it to your printer. 
Only £24.95. 



t> Photo Finish 

This is a NLO program, Near Laser Quality. On your dot matrix 
printer you can printout graphics with quality approaching that of a 
laser printer. It uses an optimizer which automatically computes 
the amount of available space between diagonal pixels and fills 
them in with additional pixels, before it prints out your picture. As 
a result your picture is drawn with smooth curves and diagonals 
rather than jagged edges. You can take almost any Hi-res picture 
and produce 640 * 400 resolution on almost any dot-matrix printer. 
This program is easily tested, print a picture and look at the 
curves made up of triangles, Photo Finish would round those 
edges. Only £24.95. 



> 64 PRODUCTS > 



C> Project Planner 

Too much to manage at once? Where do you begin? Need some 
help lo organize your work? Could you be more efficient? With 
Project Planner you and your micro can cut any problem or task 
down to size, isolate key tasks, and anticipate problems you had 
not foreseen, judge the importance of conflicting priorities, and 
recognize critical elements in any plan, work out how long the 
project will take and where money and time can be saved, display 
your plan as a clear chart, then watch the effects when you modify 
and edit your plan. Only £14.95. 

[> ToyShop 

A balloon-powered steam engine, a medieval catapult, an 
accurate sundial, an early carousel with horses, a clockwork bank 
that runs on pennies and a rubber band powered helicopter are 
just a selection of the 20 models which can be produced with the 
aid of your computer. Each of these toys is a marvel of 
engineering that you'll print out on ordinary computer paper and 
assemble yourselt ToyShop even includes a supply of card, wire, 
balloons, rubber bands and wood along with a comprehensive, 210 
page manual. Only £29.95. 

^ Fun Biorythms 

Print your own or a friends biorythms cycle in a chart form to 
printer. The cycle shows your physical emotional and intellectual 
days over a set period. Only £4.95. 

^ Super Cat 

Super Cat allows you lo catalogue your disk collection. You can 
catalogue up to 640 disks and 5000 titles per catalogue, then at the 
press of a key, search and find the location of that missing 
program. A variety of reports can be printed including programs in 
alphabetical order, programs by disk, three types of tfisk labels 
and more. Super Cat will sort 1000 programs in just 8 seconds. 
Only £19.95. 

^ Super Aide 

All purpose utility program for the 64. Super Aide hides in 
memory in a safe, out of the way place, yet is immediately 
accessible at all times. Super Aide provides, Bi-directional screen 
scrolling, auto line numbering, line deletion, renumber, trace, a 
monitor, disassembler, disk directory, display a file to screen, 
change this to that, find, unnew and more. Only £12.95. 

P> 64 Doctor 

A professional diagnostic cartridge for the 64. It automatically 
tests and reports to screen the condition of the keyboard, serial 
and user ports, kernal ROM, video display chips, all video banks, 
NMI and IRQ interrupts, BASIC, CIA and sound chips. 64 Doctor 
comes with a free comprehensive fault and diagnosis and repair 
guide to allow you to repair the computer. Only £18.95. 

^ 1541 Repair and Maintenance Guide 

The repair and maintenance book unveils the electronics and 
mechanics of the 1541 disk drive. The concise presentation of the 
material and introduction to digital electronics assures that even if 
you have no previous experience in electronics you can still repair 
your disk drive. Topics covered include general maintenance, 
speed adjustments, lubrication techniques, differences in drive 
versions, testing, adjust read/write head and more. An excellent 

Suide. and useful when aligning your drive. Large A4 format 
nly £12.95. 



•GEOS 64 £24.95 

DeskPack Plus 64/128 £21.95 

GEOSpeU £16.95 

GEOProgrammer £32.95 

GEOFile 128 £32.95 

Official Programmers 

Guide „ £7.95 

Anatomy of the 1541 £4.95 

Graphics on the 64 £4.95 

Machine Language £4.95 

PrintShop £29.95 

Newsroom £24.95 

Super Pascal £14.95 

CADPAK 64.. .„ £24.95 



GEOS 128 £32.95 

FontPack Plus 64/128 £16.95 

GEOPublish £32.95 

GEOCalc 128 £32.95 

Becker Basic £29.95 

Anatomy of the 64 £4.95 

Tricks and Tips 64 £4.95 

Ideas for your 64 £4.95 

Peeks and Pokes £4.95 

800ClipArts £19.95 

Super C £29.95 

Cobol64 £29.95 

Chart Pack 64 £24.95 



Technique 
Basically Simple 
Comic Collector 
EasySign 
Label Maker 
PPM 64 

Pocket Planner 
Fontmaster 64 
Pocket Filer 
Pocket Writer 



Tutorial for programming graphics £4.95 

Learn how to program Basic... £4.95 

Organize your collection of comics £4.95 

Learn to use the sign language £4.95 

Print over 10 different labels £19.95 

Look after and follow shares £39.95 

Spreadsheet with sideways u £39.95 

Word Processor with extra fonts „ £34.95 

Database with Report Writer £39.95 

Word Processor £39.95 



•Order with Access, VISA, Cheque or Postal Order, COD 
and Express delivery available, foreign orders add £2.50 
per package. Prices include VAT and postage. Please 
allow 14 days for delivery. 

Utilities and Educational catalogue available - call (0386)553153 




18 High Street- Pershore-Worcs-WRIO IBG-Tel: (0386) 553153 
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PROGRAMMING 



A Flow of 



Ideasm 



How can you write an anagram game without getting 

mixed up? 

By Norman Doyle 



Flow chart I 



f START J 



POKE 

SCREEN AND 

BORDER BLACK 



V 



GOSUB 
TITLE SCREEN 



V 



/ READ 

{3 J — ^—f ANAGRAH CA«) 




LL ■ LENC A* J 




MAX UORO 


LENGTH ■ LL 


criL] 




V 




TOTAL 




NUHBER 


= TN*1 


CTN) 





Before setting about the task of 
writing an anagram program 
two things are obvious: the 
program has to know what the word 
is and then the letters have to be mixed 
up. Since this is the most difficult part 
of the whole task it must be the first 
one tackled. 

Storing the words is the easiest task 
because they can be stored as DATA 
statements but the program has to 
jumble them up. In the flowchart this 
process begins at entry point 5 which 
sets a counter to unity and nullifies 
a string, AAS. 

The first step is to store the 
individual letters of the word in 
separate string variables, AS(x). By 
generating a random number, R%, a 
letter can be selected by using AS(R%) 
to arrange the letters in an arbitrary 
order. The problem is that the letters 
are thrown up randomly, as might be 
expected. For a three letter word the 
number sequence could be: 

3 113 3 3 3 2 

To let the program know which 
letters have already been selected, the 
first value selected would cause the 
program to remove the letter from 
A$(3) and store it in a string, AAS. 
Then A$(3) would be nullified so that 
the letter will not be reselected. A 
counter, X. is also increased to indicate 
that one letter has been removed from 
the array. The next number adds A$(l) 
to AAS but the next five numbers 
generated have been selected before so 
they are ignored. When 2 occurs, the 
final letter is taken and this is indicated 
by the counter exceeding the original 
word's length. L. 

The obvious disadvantage is that 
the program may take a while before 
AAS is complete. The second problem 
is that the number sequence may result 



in the anagram string being identical 
to the original word and repeating the 
process would further increase the time 
taken for the anagramising process. 
Nature is a wonderful thing and the 
probability of an unmixed word is 
higher with short words but the time 
taken to generate a full sequence is 
faster. This means that the problems 
more or less balance themselves out 
and the anagramising takes 
approximately the same time whatever 
the word length. 

Long and Short 

Having created the engine, the size of 
the petrol tank has to be determined. 
By this 1 mean that the program has 
been devised to allow any size of word 
to be used but words having more than 
ten letters would result in an error 
being generated for an undimensioned 
array. The first part of the flowchart 
caters for this eventuality by measuring 
each word in turn and substituting the 
value of the longest word in the AS 
array. 

A secondary advantage of this 
module is that the program can take 
any number of words because the 
maximum length finding process also 
counts the total number of words as 
it goes through them. 

The end of this module shows the 
importance of arrows in a flowchart. 
When the final block is reached the 
only outward flow line is the one which 
leads back to connection point 3. 

The design of a flowchart depends 
on the designer. 1 prefer to keep the 
diagram linear but the flowchart of the 
module could connect directly to the 
main part of the program at point 1 
if the outflow lines of the decision 
diamond are swapped and the 
following blocks on Flowchart 1 
moved to the side as in Flowchart 3. 
This also shows the need for arrows. 
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PROGRAMMING 



PROGRAM : ANAGRAtirtER 



10 POKES328a.O:POKES3£81,0 
£0 GDSUB300 

30 READ AS: I FAS- "• "THEN60 
40 LL-LEN(AS) ; lFLL>ni_THENML" 
LL 

SO TN-TN»1 : GDTQ30 

60 DinOS(tlL) i RESTORE 

70 FORC-lTOTN: READ A£:L-LENC 

AS):GDSUB240 

80 X-1:L-LENCAS3:AAS-"" 

90 FQR0-1T0L: ASCAI-niDSCOS, A 

,13-. NEXT 

100 R*-RNDC1)"L->1 

110 I FAS( R*;3<> " "THENAAS"AAS* 

B$CR?i):ASCRr i )-" M :X-X*l: I FX-L 

*1THEN130 

120 GOTO 100 

130 IFAS-AA5THEN80 

140 PR I NT " t YELLOW ]" AAS "t DOWN 

J" 

ISO POPG-1T03 : 

160 PR!NT"tC73CUESS NUMBER "G 

; :INPUTGS 

170 IFGS-ASTHEN0K-0K+1£/G:G- 
3 

180 NEXT 

190 IFGS<> A5THENPRINT"HARD L 
UCK, THE WORD WAS ";AS"rDOWN 
:";G07Q21O 

E00 PRINT"UELL DONE, " ; : IFC<T 
NTHENPR1NT" NOW TRY THISCOOU 
N3" 

210 NEXT 

220 PRINT" YDL) SCORED"DK"POI 
BIS": END 

£30 RED ••• DATA DECODER *** 

240 AAS-"":FDRA-1T0L 

250 E-ASCCniDSCAS, A, 133-L 

260 IFB<S5THENB-S0-54*B 

270 AA5-AAS*CHRSCBJ:NEXT 

£B0 AS-AAS: RETURN 

230 REM -•• TITLE 5CREEN *-* 

300 PRINTTCLRI-SPCCISVANAG 
RflnnER" 

310 PRINT"[DDUN£1 , 'SPCC14)"GA 
RDEN CRDPSLD0WN2] " 
320 RETURN 

330 DATA T I EU , GJFSX , JHYYUAZ , 
KI JJ IOnA , UTOUTY , JtirlBZUUB, YDB 
IHYI , CLDAtlPCCTPD , " 
900 REH ••• DATA ENCODER 

1000 READAS : L-LENC AS 2 : I FAS- " 
•"THEN END 

1010 FDRA-1T0L 

1011 B-ASCCnlDSCAS,A,l))+L 

1012 IFB>90THENB-B-90-B4 

1013 OOS-AAS*CHRSCB>;NEXT 
10£0 PR I NT AAS " , " , : AAS- " " : GOT 
CI 000 
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PROGRAMMING 



Main Line 

Before the main program can be 
executed the data pointer is restored 
to the start of the data block. Next 
a loop is initiated which runs from the 
first data item to the last. 

In the section which follows this 
the anagram is read and measured 
before it is decoded. Although I won't 
go into detail yet, this is a way of 
preventing prying eyes from reading 
the data by listing the program. 

After the anagram has been 
created, the program gives the user 
three guesses. Depending on how 
many guesses taken to decipher the 
anagram, points are awarded with a 
penalty for each guess required. At this 
point a Mastermind type of subroutine 
could be added to indicate which 
letters of an incorrect guess are in the 
correct position. 

If, after the three guesses, the 
player has not worked out the 
anagram, a hard luck message is 
printed which reveals the original 
word. Otherwise, a well done message 
is printed on the VDU screen and, in 
both cases, the next anagram is 
presented or, if there are no more 
anagrams, the program prints the 
results of the test and ends. 



Using The Encoder 

Try to write your own program from 
the flowchart and then compare it with 
the one presented here. This listing 
includes the rather simple title page 
and the data decoder subroutines. 
There is also an encoder at the end 
which can be used to create your own 
anagram program. Just to keep you 
on your toes, there is a redundant 
expression in the program. By 
studying the flowchart and comparing 
it to the listing, you should be able 
to find it. The answer is written on 
the Back Page for quitters and cheats. 

Before running the encoder, write 
your words in the data block starting 
at line 300 and going as far as you 
like (as long as you don't go beyond 
line 1000). Each data line should end 
with an asterisk. 



Flow chart 3 
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Type RUN 1000 and press the 
return key and the first line of encoded 
data will be printed on the screen. Use 
the INST key to make enough space 
at the end of the line for retyping a 
line number and DATA (make this line 
number higher than the last data line 
in the program). Before pressing the 
return key, remove the comma at the 
end of the line. The original line with 
the unencoded word can now be 
deleted so that the next time the 



encoder is run it will read the next line 
of data. 

Before pressing RETURN after the 
final line of data has been encoded, 
add an asterisk after the final comma. 
Enter the line and remove the original 
word data and the program is 
complete. 

Whether you're interested in 
flowcharting or not, the program 
should offer food for thought for 
players and programmers alike. 
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THE ULTIMATE BACKUP CARTRIDGE GOES ONE BETTER... 

ACTION REPLAY Mk V_ 

FOR CBM64/128 HAS ARRIVED 



PROFESSIONAL 



> 




EVEN MORE POWERFUL, MORE FRIENDLY & NOW EVEN MORE FEATURES! 
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ALL FEATURES AVAILABLE TO TAPE OR DISK 

USERS. 

ACTION REPLAY Mk V differs from all other cartridges because it combines 
an HK RAM with a FULL 32K operating system ROM. That means that ALL features 
are INSTANTLY AVAILABLE AT ALL TIMES. 

WARNING?! Other systems use outdated technology which scverly limit, 
performance. Action Replay s state of the art hardware gives you MORE POWER. 
MORE SPEED. MORE FACILITIES than any otber cartridge. There really Is no 
comparison. Here are just some of the features... 

/ TURBO RELOAD Action Replay Mk V has 2 unique Turbo Loaders - "Ramloader" 
& 'Warp 25". Both work at up to 25 times normal speedl / PRINTER DUMP treeie 
any game ft print out the screen, / PICTURE SAVE save any HiRes multi colour 
screen to disk at the push of a button. / SPRITE CONTROL full range of controls 
with 64K operation. .' POKEFINDER GENERAL an automatic infinite Uvea 

generator! 

/ SUPER COMPACTOR ultra efficient program compaction techniques. .' TEXT 
SCREEN EOITOR modify the text screen on a frozen program. J SUPERFAST 
DISK OPERATION load 200 blocks in lust SIX SECONDS. / MORE TAPE 
FACILITIES you don't need a disk drive to use Action Replay. / TOOLKIT 
COMMANDS full range all at the press of a button. ✓ FULLY INTEGRATED 
OPERATION with onboard custom LSI LOGIC PROCESSING CHIP. 
/ CENTRONICS INTERFACE for parallel printers. J PROFESSIONAL MACHINE 
CODE MONITOR Full G4R monitor available at all times with lull range ol 

commands. 



PERFORMANCE PROMISE 

Action Replay has an unmatched range of onboard features. When you buy Action 
Replay, if you don't find our claims to be true, then return It within 14 days for a 

full refund. 



GRAPHICS SUPPORT UTILITIES DISK 

SLIDE SHOW. View your favourite screens In a slide show type display. 

BLOW UP. A unique utility to allow you to take any part of of your picture 61 
blow It up 'to full screen site. 

SPRITE EDITOR. A complete sprite editor helps you to create or edit sprites. 

MESSAGE MAKER. Takes your favourite screen crested with a graphics package 
or captured with Action Replay '. turns It Into a scrolling screen message 
complete with music. 

ONLY £12.99 



NOTICE 1988 COPYRIGHT ACT 

DAT EL ELECTRONICS Ltd. neither authorises or condones the use of It's 
products to reproduce copyright material. It is illegal to make copies ol such 
material without the expressed consent of the copyright owners or thler 

Heencees. 



TOTAL BACKUP POWER 



The moat powcrfull backup system ever devised. Unstoppable freezer system. 
Freeze at any point. Just press the magic button to backup your programs. 
J TAPE TO TAPE J TAPE TO DISK J 
J DISK TO DISK J DISK TO TAPE J 
VERY fast ft efficient program compaction. Single part save at TURBO speed to 
disk or tape Bsckups turboload INDEPENDENTLY of cartridge. No "program- 
ing" or user knowledge required. 
THE PROCESS IS AUTOMATIC - JUST GIVE THE BACKUP A NAME. 



UPGRADE INFORMATION 

Mk IV Professional to Mk V Professional • just 

send £0.09 & we will send you a new Mk V 
Operating System Chip for you lo just plug in! 
Mk IV (Standard) to Mk V Professional - senr* 
your old cartridge plua £15.99 A we will 
upgrade It (allow 14 days). 



ALL ORDERS NORMALLY DESPATCHED WITHIN 48 HRS 

HOW TO ORDER . . . 




BY PHONE 

0782 744707 
24 hr Credit 
Card Line 



BY POST 



Send chequcs/POs made 
payable lo 
"Datel Electronics" 



FAX 

0782 744292 

UK ORDERS POST FREE 
EUROPE ADD £1 
OVERSEAS ADD £3 



PRICES AND SPECIFICATIONS CORRECT AT TIME OF PRESS 
AND SUBJECT TO CHANGE WITHOUT NOTICE 

CALLERS WELCOME Please reserve goods by telephone prior to visit. 




SLsCTJiOJlSCD 



DATEL ELECTRONICS LTD.. FENTON INDUSTRIAL ESTATE 
GOVAN ROAD, FENTON, STOKE-ON-TRENT, ENGLAND. 

SALES ONLY TECHNICAL ONLY 

0782 744707 0782 744324 
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Circus Games 
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Summer Games, World games. Winter games, Ugh- 
lympics. Cosmic Games and now Circus Games! This 
is not any old circus, as bolh Ringting Bros and Barnum 
and Bailey combine 10 create the greatest shown on earth, 
in which youll have to train tigers, walk the tightrope,' 
perform on the trapeze and show off your trick horse riding. 

You can practise the events individually, or compete in 
an international competition, in which a team of judges award 
you marks for your performances. Walking the tightrope 
demands a combination of balance and courage, as you have 
to perform acrobatics as well. Moving across the tightrope 
is difficult enough as it is without having to perform acrobatics 
- you push the joystick up to move forward, and then left 
and right to keep your balance. 

Pressing the fire button and pushing the joystick in the 
appropriate direction will perform a somersault* handstand, 
cartwheel or spin, but you must remember to press the lire 
button at the right moment when you've completed the move, 
otherwise you'll plummet to the ground. When you think 



you've mastered that, you then have to repeat the performance 
while riding a unicycle. 

In the next event, you're a woman riding a horse around 
the ring, and you must perform as many acrobatic flips, 
handstands and spins as you can without falling off. If you're 
successful then you have to repeat the exercise, this time 
with a tougher horse. 




Next, you climb up high above the ring and prepare to 
amaze the crowd on the trapeze, without the aid of a safety 
net, of course. When the event begins, you must catch hold 
of one trapeze and swing left and right to gain height, before 
judging your leap from one trapeze to the other. To really 
rack up the points, you may want to try a double or triple 
somersault while in mid-air. 

The final event is only for the strong-willed, as a cage 
is lowered around you in the centre of the ring. You're armed 
with a whip and a chair, and three Bengal tigers are allowed 
enter the cage. To your right is a tunnel, to your left a flaming 
ring, and you've just two minutes to get the tigers to perform 
as many tricks as possible. 

By aiming the whip at the right place and cracking it 
at the right time, you can steer the tigers into the obstacles, 
but you should avoid actually hitting the noble beasts, as 
this tends to annoy them. At first they just get unpleasant, 
but they're dangerous, and if you don't manage to calm them 
down by wielding the chair, they'll attack and youll lose 
points as well as an arm or a leg. 

All the Circus Games events feature some quite impressive 
graphics and animation, which is accompanied by appropriate 
circus-style music. The game is quite difficult to learn, but 
provides a pleasant change from the usual collection of 100 
metres, high jump and ski slalom events. 

Touchline: 

Title: Circus Games. Supplier: Tynesoft. Addison Industrial 
Estate, Blaydon, Tyne and Wear. NE2I 4TE. Tel: 091 414 
461 L Machine: C64 Disk. Price: £9.95 fcass), £14.95 (disk). 
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Colour Version 



Tin 



Hocus 



Paper Paridnt 



Simplicity 



Compjlibilily 



Speed 



Support 



The multi-font LC-H1 is simple to operate, easy 
on the eye and comes complete with some features 
you WOfl't find on many more expensive models. 

The LC-10 is compatible with almost 
every computer's needs whatever the system. It 
can emulate most industry standards with 
ease, (there's even a Commodore version) a 
standard feature that we think should always be 
included. For connection over longer distances, 
there is even the option of a low-cost serial 
convener. And the range includes two models 
that also give you the option of first class seven 
colour printing. 

Putting the LC-H1 to work couldn't be 
simpler. At the mere touch of a button on the 
front control panel you can set your margins, 
choose from one of eight Near Letter Quality 
fonts and pitch sires or simply put the paper feed 
into action. (No more inconvenient DIPswitchcs 
to hamper you). And with the clip-in replace- 



ment ribbons, we've made ink stained fingers a 
thing of the past. 




^TT 1 From 0-144 characters in one second and 
that's just the elite draft. The LC-10 also performs 
word perfectly at a rapid 36 cps with its exceptional 
Near Letter Quality printing for pristine corres- 
pondence and important documents. And while 
you print, the 4K text buffer frees you and your 
PC to get on with other things. 
Wm No other y-pin printer in this price range 
can match it. Features like its generous buffer, 
built-in push tractor and revolutionary paper 
parking facility arc included as standard. While 
the colour versions will give you impressive full 
colour graphics at very low cost. You could 
hardly ask for more from a printer. 



^f"^ Behind every Star printer there's a 
guarantee of superb reliability together with a 
comprehensive back-up service. Should you 
need any help at any time 
you can rely on our national 
three-level support system 
which operates . 
throughout the dealer ' 
network and is backed 
bv the finest distributors in the count r\ . 





COMPUTER PRINTERS 

Star Mivronies U. K. Lid.. 

Craven Home. 40 Uxbritige Road, Ealing, 

London W52BS. Telephone; 01 -MO WW. 



A Division of Star Micronics Co., Lid.. Japan. 



Please send me all the in formation I 'II need, t Alternatively, just call Belinda on 01 -840 1 829} . 
Name Company 



Address 



Postcode . 



.Telephone 



L10YC4 



All trade marks acknowledged. ES/'n/'/x w< u >r i tun -men may purchase at preferential terms from HMSO. Contact 0603 695256. 



GAME REVIEW 




basketball, the greatest thrill is when a forward and 
fender go onc-on-one. To celebrate this, Electronic Am 
s created a series of one-on-onc tournaments designed 
to see who is the greatest. Will it be Larry 'the shooter' Bird 
or Michael 'the slammer' Jordon? 

The first tournament is a straight one-on-one basketball 
contest in which you play cither Jordon or Bird in four 
quarters of basketball. The game centres around a single 
basket, as each player takes it in turn to attack and defend, 
while you try and outscore your opponent. This is just the 
first option on the game list: along with a first to 11 and 
15 points options, you can also opt to tackle Bird and Jordon 
in their specialist competitions. 

Larry Bird's speciality is getting those long three pointer 
shots from outside the shooting zone, and has devised a 
shooting contest in which you have 60 seconds to score as 
many points as possible by collecting balls from five 
containers spread around the basket. In a lest of speed and 
accuracy, it s the number of points that count, so you have 
to either shoot quickly or accurately, but to mimic Bird you 
have to do both, 

By far the best part of the game is Micheal 'Air' Jordon's 
slam dunk tournament, in which you take on the computer 
or up to three human opponents in a test of skill and style. 
You get n choice of ten different slam dunks to try in a 
warm-up session, before taking on the master. These include 



the energetic two-hand hammer and kiss-the-rim, the 
acrobatic twister and windmill, and even the patriotic Statue 
of Liberty. 

Each moves starts with a leap in the air from a marked 
line oi the court, and hopefully ends with the ball being 
decisively slammed into the net. In slam dunking, getting 
the ball into the net isn't enough - you need style as well, 
so you can make things difficult for yourself by adding in 
extra twists and turns. If you make the shot as well, then 
you're in Jordon's class, if not you should keep to the basics, 

There's even a panel of five judges to reward your efforts, 
with the aim being to reach the perfect 50. In the contest 
itself, it's the best accumulated score after three dunks, so 
you have to make every one count, and it's up to you whether 
you go for certain safe jumps or risk piling on the style. 

Then it's back to the one-on-onc-contest with your new- 
found skills, and another attempt to prove whether Jordon 
or Bird is the player of the decade. Obviously, this will have 
more appeal on the other side of the pond, but there are 
a growing number of basketball fans in Britain who will 
find this amusing as well. 

Touckline: 

Title: Jordon VS Bird. Supplier: Electronic Arts, tl-49 
Station Road. Langley. NR Slough, Berks.. SU 8YN.Tel: 
0753 49442. Machine: C64 disk. Price: £14.95 (disk) 
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Super 
Snapshot 



Just what is so super about this latest cartridge from the 

good old US of A? 



When the C64 computer was 
first launched, everyone 
thought the fact that it had 
a cartridge port was a great idea. It 
meant that you could plug in a 
word processor, game or whatever and 
have it instantly available. Unfortu- 
nately, no one seemed interested in 
using the cartridge port, and only a 
few ever appeared, including a number 
of poor quality games under the 
Commodore label. Just as everyone 
thought that the C64 was starting to 
run its last race and slowly sink into 
oblivion, the utility manufacturers 
inundated users with a variety of 
"utility" cartridges. 

Now, a couple of years on, we've 
had the Finals, the Experts, the Freeze 
Frames and the Action Replays. All 
have gone through various changes 
and updates, some simply through 
software available on disk. Others 
have taken on a whole new identity, 
and have had their own custom chips 
designed. After all of this. Financial 
Systems Software still think there is 
room for yet another cartridge - Super 
Snapshot. 

If you've ever read any of the 
American computer magazines, then 
the name Snapshot will not be new 
to you. As with the UK cartridges, it 



By S Garton 



has been through various design/ 
software changes and has proved very 
popular. A number of American 
magazines even credit the cartridge on 
their contents pages, because they use 
it to freeze pictures for inclusion in 
the magazine. 

So what does the cartridge do? 
Does it offer any new features? Is it 
any better than the cartridges on sale 
at the moment? 



What's on offer 

The Super Snapshot cartridge has 
some software on the cartridge, and 
some supplied on disk. Super Snap- 
shot is unlike the Expert cartridge 
from Trilogic, as you aren't required 
to load in software before you can use 
it - many functions are available as 
soon as it is plugged in. 
Facilities offered by the cartridge are: 

Disk Copiers (partly disk-based) 
File Copier 
Program Freezer 
DOS Support 

Programmable Function Keys 

Turbo Dos 

Boot Sector Support 

Screen Copy 

Extended Life 



Sprite Enable/Disable 
Machine Code Monitor 
Disk Editor 
Disk Memory Editor 
Sprite Examiner 

As you can see, the list is extremely 
exhaustive and has just about every- 
thing that you'd require when using 
your C64. The system disk that comes 
with the cartridge contains: 

Boot Sector Maker 
TURBO*25 convertor 
TURBO*25 utilities 
Sprite Editor 
Extended Basic 

Disk copiers/ program parameters 



To Copy or Not to Copy 

It seems almost every cartridge that 
appears on the market at the moment 
is designed to help you copy programs. 
Well, Super Snapshot is no exception. 
It's important to remember that all of 
these cartridges are designed so that 
users can make back-up copies of 
THEIR OWN software. 

Equally important, you should be 
able to make back-up copies of your 
programs, just in case something goes 



YOUR COMMODORE april 1989 
21 



C64 REVIEW 



scm 



i LiivEs: 5 tuffs: s 



EE 



-. , - - 



mm % z 

■ ■■■fi !»■■■ 

■■■■fit III«a» 

nun mm 




wrong with the original. In fact most 
"professional" software tells you to 
make a back-up copy of the program 
before starting to use it. 

But, and it's a big but, you 
shouldn't use copiers or cartridges to 
make copies of software that you don't 
own. If you pirate software in this way. 
then you're only harming the software 
industry and pushing prices up. If you 
do copy a friend's software and you're 
caught, then you deserve everything 
that's coming your way! 

I won't dwell on the freeze/copy 
side of this cartridge for too long. 
What I will say is that it does freeze 
some programs (make a copy), but not 
all, and the disk nibbler and parameter 
copier are among the best that I have 
come across but again will not copy 
everything. As yet I've never found a 
cartridge or copier that would work 
with everything that I tried. 

The file copier facility is a welcome 
one, as it certainly speeds up transfer 
of programs from one disk to another. 
I already own many disk-based file 
copiers, but having one on cartridge 
saves a lot of time hunting for the 
correct disk and then loading the 
program. 



Now For The Rest 

Most of the other facilities of the Super 
Snapshot system are command/menu 
based. 

The monitor, as you can sec from 
the table, offers all of the commands 



that you would usually expect, plus 
a few extra. The monitor is not 
memory resident, which means that 
you can examine any part of the 
computer's memory with ease. The 
hex/decimal conversions and the 
assemble options are very welcome. 
Most programmers will tell you that 
these are essential requirements, and 
it's surprising just how many monitors 
don't have them. 

Should you ever require a copy of 
your computer screen, then you'll find 
the screen copy mode a welcome 
addition. Many cartridges offer the 
facility of saving out screens as a Koala 
Pad file - Snapshot not only offers 
this option but also, depending on the 
mode the screen is in, allows you to 
save files that can be loaded into 
Doodle. Once you've loaded your 
screen into either of these graphics 
packages, you can alter them, print 
them out, etc. 

Not only does Snapshot allow you 
to save out screen contents but it also 
provides you with the facility of 
dumping the screen to a printer. Both 
text and graphics dumps are sup- 
ported. If you produce a graphics 
dump, this can be in any one of three 
sizes, plus you have the unusual facility 
of being able to dump any sprites on 
the screen. 

Should you own a CI28. then you 
have the extra facility of switching the 
computer into the 2MHz mode and 
using this to print out a lot faster. But 
remember the cartridge does NOT 
work in CI 28 mode. 



One of three printers can be used 
to produce your dumps: 1525, 1526 
and Epson. The 801 and 802 printers 
are more common in the UK than the 
15 scries. The dump does work with 
these printers, as they are compatible 
with the 1525 and 1526. Owners of 
non-Commodore printers should note 
that the printer should be connected 
to the serial port - not the user port. 

So that you can examine the results 
of the screen dump option, some 
samples have been included with this 
article. 



Monitor Commands 
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Display IO registers 
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Memory display 
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Output to a device 
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Display registers 
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Save file 


SP 


Disable sprite collisions 


SPB 


Disable sprite/background 




collisions 


SPS 


Disable sprite/sprite collisions 


SPR 


Re-enable all sprites 
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Transfer memory 
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Exit the way monitor entered 


XB 


Exit to Basic 


XM 


Exit to sub-system menu 
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Modify memory 
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Modify register 
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Disassembly modify 


# 


Convert hex to Decimal 


#+ 


Convert decimal to Hex 


+ 


Used to enter decimal 


$ 


Display disk directory 


* 


Modify I/O registers 


@ 


Read disk error channel 


@#n 


Set disk device number to n 



It's important to note that not all 
game/program screens can be dumped 
to a printer, especially if the program 
has a split screen. Many games use split 
screens to give the impression of 
moving backgrounds, or to change 
screen modes at different positions of 
the screen. Should you enter the screen 
dump section of the cartridge while 
using a program that does this youH 
only see a small part of the program. 
There is no way to successfully dump 
a program of this type. 
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Disk Editing 

The disk and drive memory editors 
mentioned earlier arc really just 
extensions of the cartridge's powerful 
monitor. Commands exist that allow 
you to read an area of the disk into 
a specified area of the computer's 
memory where you can them examine 
it, alter it, and then save it back out 
again. This is not the most elegant 
form of disk editor that I have come 
across, but it does work and is good 
for making quick alterations. 

The drive monitor allows you to 
access the memory in the disk rather 
than the one in the computer. A *8 
command in the monitor tells the 
computer that you are now working 
on drive memory rather than in the 
computer. All display/ modify com- 
mands that can be used in the monitor 
can now be used to examine/ modify 
the drive memory. 



Playing with sprites 

If, like me. you're completely hope- 
less at an, then no doubt your sprites 
always look like something that crawls 
out of a coffee cup after it has been 
left on the windowsill for one month 
too many. The sprite monitor will 
allow you to examine your favourite 
games for sprites and save them out 
to disk, where you can modify them 
and then include them in your own 
program - don't forget that you can't 
pinch sprites from other people and 
use them commercially!! 

Once you've saved your sprites to 
disk you can use the sprite editor to 
alter them to your heart's content - 
you could even use it to design new 
sprites for games and then use the 
monitor section of the cartridge to 
place the new sprites into your game. 

Also on Disk 

The so-called Basic extension provided 
on the disk is really quite laughable. 
The commands all work and are 
extremely handy to have around, but 
the list of commands available can 
hardly be called extensive. To be fair 
though, the commands that are avail- 
able are the ones that you would 
probably use 95% of the time in any 
Basic extension, and the extras would 
only be used occasionally. If you are 
only interested in "toolkit"-type 
commands, then everything that youll 
need is there. 



Putting the boot in 

If youVe ever used a C 1 28, then youll 
probably know that it has an autoboot 
facility. This simply means that when 
the machine/disk drive are turned on 
then the computer looks to see if a 
boot track has been written. If a boot 
track is found, then the appropriate 
program is loaded and run. 

With Snapshot, C64 owners can 
use this facility. A separate program 
supplied on the system disk is used to 
set up the program that you wish to 
autoboot, and the boot sector. The 
cartridge will check any disk in the 
drive at power up to see if the boot 
sector has been set-up and if it has, 
load in the relevant program. 

My attempts at making a program 
autoboot showed that only a Basic 
program can be specified as the auto 
start program, there is no provision 
for entering a start address for a 
machine code file. This is no problem 
though, as the program that autostarts 
could be a simple two line Basic loader 
for the machine code program such 
as: 

10 IF A=0 THEN A=l : LOAD "M/ 
C",8,1 

20 SYS start-address 

When you power up the computer 
plugged in, you are offered a menu 
offering some of the cartridges facil- 
ities, some of these allowing you to 
exit to Basic with or without an 
autoboot occurring. Should you not 
choose anything, the computer will 
drop into Basic and perform an 
autoboot. 

Another nice touch is the addition 
of the keyword BOOT to the Basic 
vocabulary. Now if you change disks 
in the drive you can type BOOT, and 
as long as you have the boot sector 
set-up, then the program will auto- 
boot, you could set up a boot sector 
on all your disks to give you a menu 
of the programs available. 



Warp Factor 25!! 

Even (hough the cartridge offers turbo 
loading and saving facilities (loading 
up to 1 5 times faster, saving up to seven 
times faster), the Snapshot Systems 
disk has a couple of programs that 
allow you to speed up loading by up 
to 25 times faster. TURBO * 25 
convenor allows you to change any 
snapshot saved file into a special new 
format. 



Unlike the TURBO load facilities 
of the cartridge TURBO*25 files can 
only be loaded on a 1541 compatible 
drive, the turbo DOS of the cartridge 
works with all commodore drives. 

The second file gives you the 
facility of setting up a fast loader on 
to your disk that can be used with 
WARP*25 files. Once installed on 
your disk, this loader will list all files 
on the screen, and you simply have 
to move the cursor to the file you 
require and press return to load it. The 
loader will work with normal files but 
the performance is nowhere near as 
good. 

Since TURBO*25 files are in a 
special format, normal DOS com- 
mands won't work on them. The same 
program that allows you to produce 
a loader therefore gives you the facility 
to delete and rename WARP*25 files. 

Once you've converted a couple of 
files to WARP*25, youll wonder how 
you ever managed without it - the 
increase in speed is amazing. Some 
programs even load faster than with 
my Dolphin DOS! 



Is it worth having? 

To be honest, I wasn't looking forward 
to looking at yet another cartridge, I've 
seen them all and I thought that there 
could be nothing new. Well I was right 
and I was wrong. 

Super Snapshot does not offer 
anything that is not available on other 
cartridges - what it docs do is offer 
a slightly different collection of 
routines from the others. I personally 
liked the facilities Super Snapshot gave 
me, and will no doubt use it regularly. 

If you're thinking of purchasing a 
cartridge I suggest that you look 
carefully at what each one offers and 
choose the one with facilities that best 
suits your needs. 

I really only have one gripe about 
Super Snapshot, and that is that there 
isn't a switch to turn it off. I use a 
CI 28 and when the cartridge is in the 
cartridge port it automatically goes 
into C64 mode on power-up. If there 
was a switch that turned the cartridge 
off, then I may never need to remove 
Super Snapshot from my machine. 

Touchline: 

Product: Super Snapshot Supplier: 
Financial Systems Software, 2nd 
Floor, Anbrian House. St Mary's 
Street. Worcester. WRl I HA. Tel: 
(0905) 61/463 Price: £39.95. 
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Icon 64 





Improve the presentation 
and ease of use of your programs 
with this simple utility 
By M Medhurst 




"Wdon't know about you, but 
I programs with with a long list of 

A.menu options that require ihe 
pressing of a number to select the 
correct one drive me up the wall. It 
would be so much easier and more 
attractive if you were presented with 
a series of pictures for the relevant 
choices, and used the joystick to point 
at the option you wanted. Hence the 
birth of Icon 64. 

The program is designed to be 
incorporated in programs that you 
write yourselves - as a stand-alone 
utility it doesn't do very much. It's 
totally up to you to produce the 
program that uses Icon 64. 

What the program does is display 
a series of eight icons at the bottom 
of the C64 monitor screen. A joystick 
in port 2 is used to move an arrow 
to the icon you want to select. If you 
press the fire-button while the pointer 
is over an icon, the number of the icon 
is returned in a memory location. 

You can check which icon has been 
clicked on, and cause your program 
to take the appropriate action. For 
example, clicking on an icon of a 
printer could print your current text 
in a wordprocessor. Clicking on a disk 



could cause a new display with various 
icons representing various disk options 
- the choice is yours. 

Icon64 is a machine code routine 
that resides at memory location 2049 
($080 1 ). The observant among you will 
realise that this is where your Basic 
programs normally live. For this 
reason, Icon64 once RUN will move 
the start of Basic to 3072 (S0C00). 

The icons used by this routine are 
quite simply sprites. Sprite design is, 
of course, totally up to you. The eight 
sprites that are used by Icon 64 should 
be stored from memory location 2432 
($0980) to 2943 (S0B7F). You could 
have a number of sprites in memory 
at different locations, and use either 
a small Basic or machine code routine 
to move the sprites that are to be 
displayed into the addresses 
mentioned above. 

Memory locations used 

The following values should be poked 
to set up colours to suit: 

POKE 2141, ICON colour 
POKE 2190, HI-LIGHT colour 

SYS 2089 will initialise Icon64 



SYS 2120 turn on icons 
SYS 2151 turn off icons 



The choice of icon is left in the 
following locations: 

PEEK (251) = Fire button pressed 
1 =yes 0=no 

PEEK (252) = ICON under pointer 1- 
7 0=none 

PEEK (253) = last icon selected 1-7 

As mentioned earlier the sprite data 
is stored from 2432 to 2943. Sprite 0 
is the pointer. 

Should you wish to see the 
program in action, I've provided a 
small demo. This places some icons 
on the screen, and tells you which one 
you have selected. Use a sprite editor 
to examine the sprites in the demo if 
you want to see how they have been 
designed. 

Important Note 

Because Icon64 re-directs the C64 
interrupts, you should disable the 
routine with SYS 2151 before any disk 
activity. You can, of course, re-enable 
Icon64 once disk activity has finished. 
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our mission, should you choose to accept it. IS to 
destroy the planet Draconia. Apparently it's an 
unnatural planet thai was formed over Ihe centuries 
by six of (he meanest and toughest rulers that have ever 
existed. These leaders, having been exiled from their own 
galaxies, have ravaged and plundered space, and used the 
worlds they have destroyed, and the creatures they have 
created, to build their planet of fear and death. 

Your mission is to embark on what could be a suicide 
minion, as it has been calculated that a single craft may 
tci Jiasl the planet's defences, where a fleet would be easily 
detectable and destroyed. Unluckily, you got chosen for 
the mission, which explains why you begin the game inside 
ibc mouth of a giant space slug, which now opens its mouth 
to lei you out undetected at the start of the first level. 

In a game that owes far too much to games like Nemesis 
and Salamander, you must then pilot your craft through 
ihe pretty but repetitive scrolling landscapes, destroying all 
thai conks before you. You'd imagine that a single fighter 
wouldn't stand a chance against six levels of killing machines 
flint were designed and built by the six nastiest villains in 
the galaxy, but don't worry, the authors have included a 
Nemesis/ Salamander-Style matter converter weapon that 
allows you to convert alien debris into new weapons. 
Naturally, you only get the chance to collect this debris 



when you destroy an entire wave, but when you do. it offers 
you Ihe chance lo save it up and then cash it in for bonus 
points or new weapons. 

These weapons begin with short-range cannons that can 
be rearmed by future enhancements, lasers for long-range 
combat, speed-up icons to get you in and out of trouble 
up to seven limes faster than you could before, a high energy 
bul temporary force field, a force field top up, and up lo 
Iwo outriders that are attached to your ship, follow your 
every move and fire cannons that can get you oul of a 
light squeeze in an emergency. 

At the end of each level is a super alien or guardian 
that will pummel you with firepower until you hit its 
vulnerable spot and progress to the next level. 

Menace was a smash hit when it appeared on the Amiga, 
probably because it looked stunning and the gameplay may 
still be novel, but when it's converted to the C64 not only 
do the graphics suffer, but so docs the gameplay, as we 
have seen time and lime again. Isnt it time for a new original 
arcade game, or is that loo much to ask? 

Touchline: 

Title: Menace. Supplier: Psygnosis Ltd.. Port of Liverpool 
Budding, Pier Head. Liverpool. U I BY. Tel: 051-207 0825. 
Machine: C64 Price: £12.99 (disk), £9.99 (cass). 
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Batman 




The 
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Caped 
Crusade 





This is in fuel the second Batman game that Ocean 
has released, the first being u 3D isometric game 
released four years ago when 3D isometric games 
were all the rage, and Ocean was following trends. These 
days though. Ocean is flushed with success, and has a wealth 
of game-creating talent. Batman is just the latest in a series 
of hits from the revitalised software house that includes 
Robocop and Operation Wolf. It's hard to believe that the 
same company produced the dreadful Kntghl Rider and 
Street Hawk. 

This time. Ocean has opted for a comic-slrip-style 
approach, and a game that contains not one but two 
Batad ventures, in which our hero must first foil the fiendish 
plans of the Penguin before tackling the Joker two arch 
villians for the price of one! The game begins as Batman 
slides down the Batpole into the Batcavc. Unfortunately, 
the Batcavc is in a bit of a Batstate as the Batcomputer 
is out of operation, so he must find the Battools to fix 
it. 

Objects such as the Battools appear on the screen in 
Batboxes that can be collected by pressing the lire button. 
This produces one of the game's best graphics effects, 
because instead of just telling you that youVe found the 
battools, a balsymbol fills the screen and includes the icon 
representing the object, as well as a description of it. These 
objects are then stored in your utility belt, which can hold 
1 2 objects that are selected and used in a separate screen 
that also displays Batman's energy status and the percentage 
Of (he game you've completed. Live long enough to reach 
100%, and the world will be a safer place. 

The rooms and corridors of buildings including the 
Batcavc are displayed on the screen in comic-style frames 
that are ovcrlayed when you move into the next frame. 
The old frame turns blue so as not to create a messy screen, 
and the effect is remarkable. Comic-style text also appears. 



but this is more than just the 'Meanwhile, back at the 
Batcave' you would expect. In fact they're clues to the 
problems that you have to solve next. However, most people 
will find these clues so obvious that they'll probably 
concentrate on the action, as most of the thinking is done 
for you. For example, when you approach a door the 
message Take your pick' appears, leaving you in no doubt 
lhai your lockpick is the way in. 

Your first task is to foil the Penguin, who has just been 
released from jail and has set up an umbrella factory near 
his Gotham City mansion. Of course, this is just a front 
for his latest evil pla n to take over the world using an armv 
of robotic penguins. Before you can tackle the Penguin, 
you have to find his hideout, while avoiding the almost 
constant attack from gun-touling thugs and other curious 
creatures. These can be despatched with punches and kicks, 
or with weapons you can collect on the way, such as a 
grenade or Batarang. 

Eventually, you will discover the Penguin's lair by 
climbing up the side of buildings (remember not to try this 
at home, children), and fighting on rooftops, where you 
will have to slug it out with mechanised Penguins before 
tracking down the villian himself. Before you can start the 
celebrations, you discover that while you were out defeating 
the Penguin, Robin was kidnapped! The only clue is a 
playing card, which of course is the Joker, and the start 
of a second adventure. 

Batman The Capet/ Crusader is the game that Batfans 
have been waling for. and the good news is that Ocean 
is planning Batman the movie for later this year. So see 
you then Batfans. same time, same channel! 
T ouch line: 

Title: Batman The Caped Crusader. Supplier: Ocean, 6 
Central Street. Manchester. Tel: 06/ Hi2 66i3. Machine: 
C64. Price: IV.V5 (cass), 
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Robocop 




The race for ihe Christmas number one spot didn't 
go according to plan. While everyone was expecting 
a three-cornered fight between Operation Wolf (the 
eventual winner). Afterburner (the favourite) and 
Thunder Blade, Robocop upset the odds, giving Ocean an 
unprecedented 1st and 2nd, and is now poised to take the 
lop slot itself. 

Rased on the recent film, Robocop is set in Detroit, 
and begins just after Patrolman Murphy has become the 
32nd cop to be gunned down in Detroit since Security 
Concepts Inc. took over the police department. Although 
is bad news for Murphy, it's just what OCP have been 
ing for, so they take what's left of him. erase his memory, 
programmed mind and a titanium body, and turn 
i Into Robocop - the future of law enforcement 
urally, this doesn't go entirely to plan, and part of 
tphy's memory remains). So you take the controls of 
kilting machine, and set out to track down your killers 
wrcsl them, which means "blow them away" in this 

iiocop is controlled through joystick moves that allow 
10 walk left and right across the sideways-scrolling 
crecn. climb up and down stairs, crouch to avoid flying 
els. jump and fire in five directions. The screen display 
the seedier side of Detroit, packed full of alleys, 
'ows and doorways (hat could hide an assassin waiting 
ake you the 33rd cop to be killed... 
The game consists of nine levels or patrols in which 
our metallic hero guns it out with murderers and ihugs. 
Level one involves a straight shooting match in which you'll 
have to learn how to turn and shoot accurately to tnke 
out gunmen that appear at windows before they get you. 

You're armed with a standard issue police pistol, but 
this can become far from standard by collecting bonus 



objects that appear as a reward for gunning down villians 
and increase your gun's firepower. It can eventually fire 
in three directions at once, so you can take out three bad 
guys with a single shot in true western style. Above the 
main screen display, there is the time left in the patrol clock, 
the all-important score and a power rating that is shaped 
everytime you're hit, but can be recharged by collecting 
tins of baby food! 

Robocop is more than just another shoot-em-up: by 
level four you're beginning to match up parts of a photofil 
picture which, if successful, will lead to the name of the 
man responsible for your death. This leads you to a drug 
factory and the rest of the gang, whoU stop all but the 
best in their robotic tracks. 

Success here reveals that the gang leader is none other 
than OCP director Dick Jones. Unfortunately, directive four 
ot your programming forbids you to act against an OCP 
director- which results in you being disarmed and sent out 
to lace the robot ED209 armed only with your bare steel 
fists. 

By level nine you're back at OCP headquarters and you 
confront the board of directors with the evidence against 
Jones, w ho reacts by trying to escape by taking the president 
hostage, who in turn immediately sacks Jones, cancelling 
directive four and leaving you to do the rest. 

Robocop manages to recreate the atmosphere of the 
film in pixels and animation that will have you reaching 
for the lire button at the slightest sign of trouble. This 
a surprise hit of [988 that will definitely set the pace 
for 1 989. 
ToucMine: 

Title: Robocop. Supplier: Ocean, 6, Centra/ Street. 

el; 061 832 6633 Machine: C64. Price: £9.95 

(cuss). 
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Blacksilver 



The source of all magic on the planet of Bantross lies 
in an unprepossessing mineral called Blacksilver. 
Nothing special to look at. it is nevertheless many 
times more precious than gold. It can lead to untold power, 
especially when it falls into the hands of potential 
megalomaniacs. 

Such a perilous state of affairs currently exists on the 
island of Thalen. Apart from cataclysmic earthquakes, the 
king has been kidnapped and is being held to ransom. 
Desperate for help, the King's daughter. Princess Aylea 
appears in one of your dreams appealing to you to come 
forward and attempt to save the world. Why she chose you 
a mere peasant - rather than one of her trusted knights 
is not known, but you feel obliged to take on the quest even 
though you have previously never left your own valley. 

Tfie Legend of Blacksilver is a fantasy role-playing game 
using the same game system as the Legacy of the Ancients, 
although the scenario has been expanded considerably. 
Control of the game is simple, commands being highlighted 
from a menu on the left of the screen, and anyone wanting 
a game that they can start almost immediately without having 
to wade through a plethora of manuals and keystrokes should 
be well pleased. 

That's not to say that the game itself is simple. Your 
quest is long and arduous. There are towns and temples to 
visit, castles and of course dungeons all in all some 40 
levels packed with traps, treasure and some excellent graphic 
representations of monsters. You'll need to find gems that 
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allow you to access different exhibits in the archives - the 
source of most of your knowledge. Although no estimated 
playing lime is given, I would reckon on somewhere in the 
region of 100-150 hours involvement before you save the 
world. 

Your character has five different attributes - strength, 
endurance, dexterity, intelligence and charisma. Rather than 
automatically improving these statistics as you progress 
through the game, you can visit different training centres 
where, for a small fee, you can take part in an arcade game. 
Success or failure here is reflected in the relevant attribute 
score. 

The games are not particularly taxing, but they do show 
a sort of warped originality clay pigeon shooting with a 
bow and arrow for example. Completing certain tasks within 
the game will also affect your characteristics, so you don't 
have to rely entirely on arcade skills. 

Money is vital to your continued survival. Weapons, 
armour, food, spells, boats and so on all have to be paid 
for. Apart from robbing treasure chests, the easiest way of 
increasing your wealth is to gamble, and there are several 
games of chance in which you can lose your shirt or make 
your fortune. 

Killing monsters is another way of acquiring gold, 
although there's obviously a considerable amount of personal 
risk involved. Perhaps talking your way out of trouble or 
doing a quick bunk might prove to be a wise decision. 'He 
who turns and runs away, lives to fight another day' may 
not be the stuff of legends, but then people only usually 
sing about dead heroes! 

There are nine different spells that you use on your travels, 
although youTl have to prove your worth as an adventurer 
before the shopkeepers will let you loose with the likes of ( 
'annihilate' and 'psychic protection'. The successful casting 
of a spell depends on your intelligence, magical skill level, 
and where you are when you try to cast it. 

Legend of Blacksilver is a well produced, simple to play 
RPG. Although lacking the complexity of some of its rivals, 
you can't help but get carried along by the story. Another 
one for the collection. 
Touchline: 

Title: The Legend of Blacksilver. Supplier: Epvx (U.S. Gold), 
2/3 Holford Way, Hn/ford. Birmingham B6 7 A X. Tel: 021 
356 3388. 
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A simple and easy- 



Balance Sheet 



to-use program 
that 'II help you 
keep track 
of your 
bank account 
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Balance Sheet has been designed 
to keep track of your current 
bank status, and provide you 
with a statement at any time. Even if 
you don't have a bank account, 
Balance Sheet can still be of use to 
you to help you manage your finances 
more easily and economically. 

When the program is run, you will 
see the title screen first and then a 
prompt to 'Enter Year'. Ideally, this 
should be a four figure number - 1988 
for example - but it can be text, if 
you choose. The purpose of this is to 
provide each file you save with its own 
'code'. As you will use Balance Sheet 
for more than a year, this means you 
will want to have more than one file 
of the same name (files are saved for 
each month, being named using the 
first three letters of themonth-e.g. SEP 
for SEPTEMBER) on the disk, 
therefore each file is given a suffix (the 
year) lo distinguish between, sav, 
JANUARY 1987 and JANUARY 
1988. 

When you've entered the date (no 
need to press RETURN), the Main 
Menu will appear. This lists the main 
functions of 'Balance Sheet'. To the 
right of the first option (load sheet), 
is a pointer. You can move this up 
and down by using the cursor up/ 
down key. To make a selection from 
the menu, simply position the pointer 
next to the function, and press return. 
LOAD SHEET this will prompt you 
for the three letter name of a file that 
has previously been saved. 
SAVE SHEET - this will again 
prompt you for the three letter name 
under which the current file in memory 
will be saved. 

ENTER DATA - this is how you go 
about setting up and entering 
transaction details into 'Balance 
Sheet'. More about this later. 
WIPE SHEET - this will prompt you 
for the name of the file you wish to 
crase-from the disk: you will be asked 



if you're sure, just in case you make 
a mistake. Enter 'Y' for yes, or 'N* for 
no. 

VIEW SHEET - this will display the 
current file in memory on the screen. 
Any details are not shown, basically 
because there isn't room to fit them 
on the screen! Instead, the details are 
shown when you print the file - see 
next entry. 

PRINT SHEET - selecting this will 
present you with a sub-menu - the 
Print Menu. Selection is made here 
exactly the same as for the Main 
Menu. 

ABORT - will return you lo the main 
menu without taking any further 
action. 

PRINT WHOLE SHEET will print 
out the current file in memory 
(providing your printer is connected 
and on-line). 

PRINT PART SHEET - will print out 
a section of the sheet only. You will 
be-prompted"FROM RECORD" and 
"TO RECORD". Your input must be 
in two digits: for example, if vou 
entered for 'FROM RECORD' 06. 
and 'TO RECORD' 1 1 , then only these 
entries and those between will be 
printed. Both entries cannot, of course, 
be less than one. and the second entry 
must be larger than the first. 
CHANGE PRINT FORMAT - this 
will produce yet another sub-menu, 
which is again-used like the main and 
print menus. The first option is PRINT 
MENU, and will return you to the 
print menu. The other options consist 
of PRINT SLASH ZERO, PRINT 
BOLDFACE, PRINT 
EMPHASISED, PRINT NLQ and 
PRINT ITALICS. These options 
should work on any Epson 
compatible printer. To select a 
function, simply place the pointer next 
to it, and press return to turn it on. 
Press return again to turn it off. A 
white square will appear next to it to 
indicate that the function is on. The 
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function stays on until it is turned oft, 
or until the sheet is cleared from 
memory (see later). Any number of 
functions can be on at the same time. 
RE-NAME SHEET this will prompt 
for two inputs - the name of the file 
you wish to re-name, followed by the 
new name (no need to press return). 
VIEW CONTENTS this will list all 
the current files on the disk for a 
particular year, note only the files 
on disk for the current year will be 
displayed - i.e. if the year is, say, 1988, 
and you have on disk four files saved 
from' 1987, and three from 1988. then 
onlv the ones that were suffixed with 
1988 will be displayed. To display the 
files from 1987. you will have lo change 
the year - see later. 

Finally. EXIT will return you to 
the Power - Up Screen. You will be 
prompted 'ARE YOU SURE* first, in 
case vou accidentally select it. 

Now to the ENTER DATA 
option. Selecting this option will open 
a specially formatted window in the 
top portion of the screen. The best way 
to show you how to create a sheet is 
with an example: 

Suppose you are starting afresh a 
new sheet for, say, February. The first 
thing you want to do is to let the 
computer know how much you have 
in your account. For the sake of 
argument, let's suppose it's £150. First 
you are required to enter the date. As 
you're not actually making an official 
transaction, what I do is to fill out 
the date with stars, so you can do this 
too (no need to press return). 

You will notice once you have done 
this that the pointer to the right moves 
down to indicate from which section 
Balance Sheet is expecting input. 

The next input is for details of the 
transaction. As it is the first entry, 
enter "BALANCE CARRIED", or 
something similar. The maximum 
entry allowed is 38 characters. Press 
return once you have done that, and 
you'll see the pointer move down 
again. 

Now you must enter the amount 
to be paid in. In this case it's £150, 
so type ONE space, then the 150. then 
enter a decimal point (this should be 
typed over the one already shown on 
the screen), then the 00. This display 
was: " — .-" and should now look like 
" 150.00". Don't worry if you have got 
it wrong, as you can re-enter the 
information again. 

When you've entered this, the 
pointer will move down to 
"WITHDRAWN -—.-". you are not 
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making a withdrawal, so just press 
return. The computer will enter "0.00" 
for you. The message 'CORRECT? 
(Y/N)" will appear across on the right- 
hand side. 

If you've done any of the above 
wrong, then press N. and you can do 
it again. Pressing Y will display your 
balance. Press another key to return 
to, the main menu. 

Now let's suppose that on the 4th 
of February, you withdraw £20.45, for 
whatever reason. Select Enter Data as 
before, and enter the following for the 
date: '•04/02/88". Then you can enter 
anything you like for the details. You 
are not paying in anything, so press 
return, and the computer will fill out 
the space with "0.00". For 
WITHDRAWN, enter two spaces, 
then 20.45. (remember to enter the 
decimal point as well). 

If you've done that correctly, press 
Y, and your new balance will be 
calculated, and diplayed. Press any 
other key to go to the main menu. You 
can select from the menu VIEW 
SHEET, to see what you have just 
typed in (except for the details), or you 
can select PRINT SHEET to obtain 
a hard copy (statement). 

The file can be saved using the 
SAVE SHEET option. Any three- 
letter name can be used, but it's best 
to call each file the month it is related 
to, i.e. "FEB". As long as you entered 
the vear as 1988, then it will appear 
under VIEW CONTENTS as 
"FEBF1LE-I988". 

Other Functions 

Holding down the CBM key (bottom 
left of keyboard), and the FI key (top 
right of keyboard) when on the main 
menu, will clear any sheet in memory 
and present the title screen. You will 
then be required to re-enter the years. 

Holding down any key during 
printing will terminate printing, and 
return you to the main menu. Pressing 
the escape key (left arrow), again from 
the main menu, will allow you to re- 
enter the year without clearing the 
memory. 

Should you need to, pressing D 
from the main menu will delete the 
last entry from the sheet. Please note 
that this function must not be used 
directly from loading a new sheet (as 
the previous balance will not exist). 

Finally, if youVe used the DISK- 
BOOT program to load BALANCE 
SHEET, then using the LOAD, SAVE 
or PRINT options without the 
appropriate device connected will 



cause the computer to crash, and any 
sheet in memory wHI be lost. 

If you encounter a 'file not found' 
error when trying to load a file that 
you know exists, then the most likely 
fault is that the year is not set right. 
For example, you will get an error if 
the year is currently set at 1987, and 
you are trying to load JAN 1988. 

Getting it all in 

The following are the instructions for 
typing in and saving 'Balance Sheet*. 
Remember - don't run any program 
until you've saved it first. Please read 
the following through thoroughly first, 
so you are sure of what to do. 

1. Type in LISTING I, and save it 
as "LIST1". Check and double-check 
that it is correct, 

2. Type in LISTING 2, the U.D.G.s, 
and save it as "LIST2". The program 
has a built-in checksum, and will 
inform you of any error. 

3. Type in LISTING 3, the windows 
machine code program, and save it as 
"LIST3". Again, the checksum will 
inform you of any error in the data. 

4. Now re-load "LIST2" and run it. 
Type "POKE 53272,31" (return). You 
should see the character set change. 
Type "NEW" (return), and then type 
in LISTING 4, the windows creator 
program. Because this program uses 
mostly keyboard graphics, it's unlikely 
that you will hit on the right symbol 
every time. Typing in this program 
with the new character set selected will 
let you see more easily if you have got 
it right or wrong. Save the program 
as "LIST4". 

5. Now type in LISTINGS 5, 6 and 
7, and save then as "LIST5", "LIST6", 
"LIST7" respectively. 

Now that you've typed in and saved 
all these BASIC programs, it's time 
to create the machine code versions 
of them, and save them in the correct 
way onto the program disk. Have a 
new, formatted disk ready to recievc 
the programs. When you have the 
complete set of programs saved on this 
disk the directory should appear as: 



1 


"SHEET 


1 


"A" 


5 


"B" 


4 


"C** 


32 


"D" 


25 


"E" 



To obtain the program in its 
completed form as shown above, do 
the following: 

I. Load "LIST6", and run it. Type 
"NEW" (return), and load "LIST7". 
Place the program disk in the drive 



(the one you have just formatted). 
Type RUN (return). The drive should 
run for a few seconds. To test that the 
BOOT program has been saved 
correctly, turn your computer off, then 
on, and LOAD"SHEET",8,l. 

As soon as the computer prints 
"LOADING", the screen should clear, 
and your drives error light should 
flash. If this doesn't happen then 
vou've made a mistake in either 
LISTING 6 or LISTING 7. If you have 
made a mistake then correct it. and 
change line 50 in LISTING 7 to read: 
50 SYS578I2" :SHEET*\8,I and 
have another go. 

2. Turn the computer off then on. and 
load "LIST5". Run the program, then 
type the following in direct mode: 
POKE43.253: POKE44,3I (return) 
POKE 45,89:POKE46, 32 (return). 
Insert the program disk and 
SAVP'A", 8, 1 (return). 

3. Turn the computer off then on, and 
load "LIST2". Run the program, and 
type the following in direct mode: 
POKE53272, 31 (return), to make sure 
the U.D.G's are in mcmorv. TYPE 
POKE43, 253: POKE44. 55" (return). 
POKE45, 9: POKE46, 60 (return). 
Insert the program disk and 
SAVE"B'\ 8. 1 You can check that 
the U.D.G's have been correctly saved 
by turning the computer off then on. 
and loading "B", 8,1. POKE53272, 31 
should reveal the U.D.G's back in 
memory. 

3. Turn the computer off then on, and 
load "LIST3". Run the program. 
Insert the program disk and type the 
following in direct mode: SYS52224, 
"C", 8 (return). The drive should 
operate for a few seconds. 

4. Turn the computer off then on, and 
load "C", 8, 1 from the program disk. 
Load "LIST I", and run it. You should 
see all the windows used by the 
program flash up on the screen. When 
the program has finished running, 
insert the program disk, and type 
SYS52248,!,"D", 8 (return). The drive 
should operate for a few seconds. 

5. Turn the computer off then on, and 
load "LIST!" - the Basic program. 
Insert the program disk and 
SAVE"E", 8 (return). 

All the separate programs to 
Balance Sheet arc now on the program 
disk. LOAD"SHEET", 8, I now. 
should make the program LOAD, then 
RUN automatically. (The screen will 
blank during loading) 

If vou don't want the program to 
'BOOT, then you can LOAD"A",8, 
I and then type SYS8202 (return). 
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teletext 



A world of information 
at your fingertips 





Teletext on your 64 or 128 brings you the very latest information 
free! And unlike a Teletext TV you can print pages like todays 
TV, save a recipe to disc or cassette. The ability to access 
Teletext data from your own programs provides endless 
possibilities. Ceefax and Oracle provide hundreds of pages of 
news, share prices, weather and road reports, even bargain 
holidays plus much much more. 

The Microtext Teletext Adaptor fits neatly on the user port, just 
connect it to the Tuner and plug in an aerial or the Adaptor alone 
may be connected to the VIDEO OUT socket of a video 
recorder. 



The Microtext Adaptor is only £79,85, 
C124.95 including VAT and p&p. 



Adaptor and Tuner just 



NEW Upgrader 

The Upgrader allows your C64 Microtext Adaptor to be 
connected to the Amiga and comes complete with Amiga 
software lor only £34.80 



S MICROTEXT m 

Dept. YC 7 , 7 Birdltp Close, Horndean, Hants P08 9PW 
Telephone: (0705) 595694 




WIN WITH 



HI 



computer9 FF,CIAL co MMODORE/AMIGA DEALER 

AlTH(l,l 

Amiga 2086 PC/XT BnOgeboarfl - 525 ' Drive ., .481 R5 

Amiga 500 • Modulator r 359.00 

Amiga 5M • GamsB 399 M 

Amiga 5M-AS01 RAM - Mod - Dragon's Lair "^i.^KOO 

Amiga 5M - 10W5 Siereo Col Mon 629 00 

Amiga 500 • Pnilips 8833 Stereo Col Mon 609.00 

Commodore PCi Single Drive Mono 332 35 

Commodore PCiO'2Q'4u760 PHONE 

COMMODORE 64C PACK5 

Homo Entertainment. Pac» Music KDraVPors Stereo/Joy/Qam« 119.00 

Hollywood Pack wilri C2N ■ Joy - 10 Games 139.99 

PRINTERS 

Citizen 120D Parallel or Commodo'8 129.95 

Star LC-10 Parallel or Commodore 219.00 

Star LC-tQ Parallel or Commodore Colour . . 249 00 

Star LC24-10 24 pin Muld-tont l70/57cps .329.00 

All OKimate 20 consumables normally in stock PHONE 

MONITORS 

Commodore 1084S Colour Monitor inc lead . ... 279 00 

Philips 8833 Stereo Colour Monitor inc lead 259 M 

Ttlt/Swivel Stand 1 clock (or 1081/1084/8833 19.34 

Philips 7502 Green Screen Monitor ' ' §5 00 

MISCELLANEOUS 

Amiga 501 512K RAM/Clock Expansion , . , .139.00 

mimGEN Genlock tor AmiQl 113 85 

Pace Modem • S/ware 'or Amiga V21/23 Prestel. BBS etc. 23900 

Commodore 1541 - ll Disk Dn-e (NEW) 159.00 

Commodore C2N Data Recorder 29.95 

Cumana CAX354 Amiga Disk Drive , 95.00 

Power Supply tor C64 26 45 

Super-G Cent l/F 1 Graph.cs C64/128 34.95 

Surge Protector 13A Plug ,„ 12.95 

Surgo Proteclor 3-Way Adaptor or 4-Way Drst Unit 15.95 

Am.ga DOS Retorence Manual 22.95 

C'28 Ofticial Prog's Rel Guide p S p £2 19.95 

SOFTWARE 

Superoase Personal , 40.05 

VifaWrlte 128 • Spellcheck ,,59.95 

VizaStar 129 Spreadsheet & Database 79.95 

Supebaso 64/1 28 , ■ > . , 24.95/29.95 

Superscnpt 64/128 , 24.95'29 95 

Tasword 64 40/80 Col WP - Tape/Disk 24.95/29.95 

# ALL PRICES ARE INCLUSIVE OF VAT AT 15* 
* CARRIAGE £5 (EXPRESS E10). Software and small Hems tree 

* Prices subject to change without notice E&OE 



COURSEMASTER * 



THE COMPUTER HORSERACING 
PROGRAMME 

* RATES ANY RACE IN SECONDS - ANY DAILY NEWSPAPER IS ALL 
YOU NEED 

* NEVER out of date - Both N. Hunt and Flat - Fast data entry 

* AMAZING ACCURACY!! - Now you CAN BEAT THE BOOKIES!! 

* Works on the simple prlncilpe that FAST HORSES BEAT SLOW 
ONES!! 

* Clearly identities beat selection in every race plus these AMAZING 
Features:- 

* First, Second and Thrld choice shown for forecasts and Tricasts etc. 
Recommends most suitable type of bet. 

* Actually works out your WINNINGS on most popular bets including 
SINGLES and DOUBLES, win and each way. PATENTS, YANKEES. 
CANADIANS. HEINZ etc. Good EACH WAY and LONG ODDS bets 
clearly shown 

* Will PRINT out your BETTING SLIP for you 

* Maintains a BANK ACCOUNT - BET Like PROFESSIONALS Dor 
Records all your bets in any number of accounts. Keep a complete 
record of your belling or compare COURSEMASTER against your 
favourite tipster. 

* PLUS!! - THE AMAZING COURSEMASTER SYSTEM. This superb 
betting system is included in the programme. A system which 
regularly produces huge wins from small stakes. Try It! Can pay for 
itself many times over on the first day! 

* Supplied witth 20 page BETTING GUIDE and MANUAL 
FREE HOT TIP OF THE MONTH SENT TO EVERY PURCHASER 



Supplied on TAPE at £14.95 for> 
All Spectrums, Commodore 64/ 
128. Amstrad CPC's. BBC & 
Electron Also Available (or 
Sinclair QL on Microdrive at 
£15.95. 



Supplied on DISC at £16.95 tor- 
All Spectrums, Commodore 64/ 
128, Amstrad CPC's. Amstrad 
PCW's. BBC 5 Electron, IBM/PC 
compatibles, All Amsirad PC's 
etc. 



Please stale machine and disc 



size 



INTRASET LTD. (DEPT YC), FREEPOST (No Stamp 
needed) 6 Gilderdale Close, Gorse Covert, Birchwood. 
Warrington, Cheshire, WA3 2BR. Or large SAE for 
further details. 



I 
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Veto* Pi Sofaxine Jttd 



8 Ruswarp Lane, WHITBY, N. Yorks. Y02 1ND. 
Tel: 0947 600065 (9am-7pm) 



TJTj 7J7J7^T .1717n.lT.17 J7JTJ7 
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PRINT ENHANCER Plus/4 disk £19.99 

Plus/4 desktop publishing: Proportionally spaced, high quality printouts, 
from BASIC. 3-1 and script/plus. Supplied with 15 fonts and fom designer 
program MPS 801/803. VIC 1525 

RS232 INTERFACE 64, 128 or Plus/4* . . £34.99 

Measuring only 12x69x57mm, the smallest and neatest unit available 
Conforms to Commodore 1011 A user-port standard Compatible- with 
BASIC. Easyscnpt, Superscript, Superbase. Mini Office. Script Plus etc 
Connect to RS232 printers, modems and other devices. Supplied with 
1 metre of cable (add 75p extra metre*) terminated with a mate (female*) 
25-way D-connector, or a custom cable made to your requirements. Our 
after sales service for unusual printers guarantees to get you up and 
running. Supplied with a terminal emulator program, file transfer and 
other utilities on Upe/dltk' 

IBM PC FUe Transfer Utility £9.99 

Captures text or binary files via the COMI RS232 port. Supplied on a 
360k IBM format 5v, disk Simple instructions provided by on-line help 

VIEWDATA TERMINAL 64 or Plus/4 . . . £14.99 

Access Prestel. Micronet. CityService etc Works with any user-port RS232 
interface and 1200/75 modem. 

CENTRONICS CABLE 64, 128 £18.99 

Use with Easyscript, Superscript etc Driver for BASIC on disk or tape * 

6502 ASSEMBLER 64 or Plus/4* tape/disk £12.99 

A sophisticated two-pass symbolic assembler and text editor which 
supports tape and disk filing. The assembler, editor, source and object 
code may all be resident in memory simutaneously. facilitating rapid and 
interactive code development Very fast edit/ Assembler/test cycles 

Z80 EMULATOR/ASSEMBLER 64 disk £12.99 

A unique integrated ZS0 development package The emulator compiles 
Z80 source code into optimised 8502 which runs on the 64 at about one 
sixth the speed of a 2MHz 280. The cross-assembler generates hex or 
binary Z80 object files. The disk contains a powerful editor and example 
programs. 

Pfeasa specify' options. Sand cheque PO. or order by . 
Prices Include VA T and Pi P. O verses* orders add £2. 50. 
Allow up to 1 week tor delivery. 

YORK ELECTRONIC RESEARCH 

The Flshergate Centre, Dept YC, 4 Flihergate, York Y01 4AB 
Tel (0904) 610722 
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r games are absolutely brilliar 
ig you could possibly want in computer soceci 
ihese games have it all! Amazing playability!" 
That's how Code Masters, the company that first made 
its name in budget software but has now turned lull price, 
modestly describes its latest four-pack football ottering. 
Unfortunately* the games are far from brilliant, remarkably 
unfriendly to use and contain many inadequacies that will 
hardly satisfy a football fanatic. 

Two cassette tapes with a program on each side arc 
accompanied by a poster of football greats, and a sheet of 
brief instructions. It's up to you to decide which game you'll 
play and for how long. Having said that, all the games have 
dly front end that offers you the chance 
one and two-player game, select controls, 
instructions and select other appropriate 

options. 

As far as I know* most C64 owners possess a joystick 
and will think it a nuisance to have to use keyboard controls 
to select the joystick every time they load in the game; ihcyll 
think it's appalling to have to go through this procedure 
everytimc they play a match, particularly five a side game 
that lasts only a few minutes. 

The football games, ll-a-side, 5-a-sidc and street soccer 
arc all played in psuedo 3D. which just doesn't seem to work 
the worst offender is 1 he street soccer, which is played in 
a road containing nice obstacles such as parked cars and 
open garages. Unfortunately, should a computer opponent 
siray into a garage, hell get stuck between the car and the 
garage wall, bringing the action to an abrupt halt. 

In the 5-a-sidc game, attacking players aren't allowed in 
the goalkeeper's circle, but this only seems to apply to human 
players when I was playing, a computer player dribbled 
the ball up to ihc goal line lo score! 

You may consider these to be minor niggles or serious 
faults, depending largely on your idea of football, and you 
may consider that four games for the price of one is good 
value (the fourth being a skills and training program), but 
for my money four budget game* do not a full priced game 
make, and shouldn't be sold as such. Perhaps the ll-a-side 
and 5-a-side game together would make a good £1.99 or 
£2.99 game, but at £9.99 it's just not in I he same league. 

ToucMine: 

Title: 4 Soccer Simulator*. Supplier; Code Masters, P.O. 
Box 6, UaminRtan Spa, Warks., CV33 OSH. machine: C64. 
Price; £9.99 (cass). 
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Miraculous 
Microtext 

Even if you can already access teletext, this unit adds 
dimensions undreamed of. 

By Eric Doyle 

£*f9RIR SRUERS 
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Since the BBC and ITV launched' 
their respective Ceefax and 
Oracle services, remote controls' 
have sprouted dozens of extra buttons/ 
and teletext is now as familiar ad 
Coronation Street. Many homes, 
already have teletext TVs, so why 
should they want an adaptor for theirj 
computer? 

Although the Microtext teletext' 
adaptor is pretty uninspiring to looltl 
at - the typical black box syndromel 
- it is the key to an exciting new) 
approach to Ceefax and Oracle.! 
Effectively it turns a computer into a 
programmable hand control with] 
extra facilities which cannot be foundf 
anywhere else. 

The adaptor itself connects to the 
User Port on the computer and takes! 
its input from the Video Out socket! 
of a video recorder or from Microtexta 
own tuner (in both cases all necessary! 
leads and software are supplied),! 
Personally I prefer using the separate- 
tuner because it means that the unit! 
can be used in my room, rather than! 
battling with the rest of the family for! 
use of the video. 

When 1 described the unit as a. 
black box, that is exactly what I meant! 
There are no knobs or dials to twiddle,! 
and the only connection is the DINi 
socket which feeds the signal in. Thel 
tuner is equally anonymous with its! 
signal out, aerial in and 12V supplyf 
sockets. 
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Signal Strength 

Having installed everything in my 
room, 1 came upon the first problem 
no aerial. Rather than moving 
everything down into the living room, 
I decided that 1 would indulge in an 
experiment. Casting all caution to the 
wind and sparing no expense, I 
plunged into the wardrobe and 
emerged with an all-purpose, metal 
coat hanger. Leaving a trail of freshly 
ironed shirts in my wake, the hanger 
was soon transformed and installed as 
a serviceable aerial. Now for the 
severest test. 

Loading the supplied software 
took seconds - it automatically 
detected that the Microtext tuner was 
being used rather than a video recorder 
and proceeded to scan the wavebands 
for a suitable signal. I knew it wouldn't 
work because, apart from the 
improvised aerial, I live in a weak 
signal area and the presence of an 
enormous cathedral nearby doesn't 
help. Surprisingly, after a few seconds 
I was presented with a line of text 
indicating that the Tyne Tees 
transmitter had been contacted. This 
amazed me because 1 live in the 
Yorkshire Television area. Accepting 
this as a source, I let the search 
continue and soon had all of the YTV 
and BBC stations pinned down. 
Amazing! Once a station is sensed it 
can be allocated its own key on the 
computer so that channel switching is 
merely a case of pressing two keys. 

Now came the true test - picture 
quality. As I expected, the TTTV 
screen was a total mess, but ! could 
get a reasonable picture of the index 
if I left it on the screen for a few passes. 
The other four channels were excellent 
but BBC2 had a few glitches - perhaps 
I should buy a multi-element coat 
hanger for future use. 



Once the software has done this 
initial search, it can be rcsaved so that 
the channels are fixed for future use. 
This also makes it all easier to use than 
the video link-up where the channel. 

At this point I remembered that 
somewhere in my academic past I'd 
acquired an indoor aerial for an old 
set which had long since gone to the 
great reception area in the sky. 
Ransacking my room, I emerged, 
grinning jubilantly from a pile of 
memorabilia clutching the sought- 
after trophy in my hand. 

With a better aerial the BBC2 
picture improved but that's about all, 
hardly worth the effort. During a lull 
in household proceedings I managed 
to set up the equipment near to the 
aerial socket from our glorified, roof- 
mounted, coat hanger. This further 
improved the image so that now Tyne 
Tees was almost acceptable. 



The Advantages 

In short, the adaptor works perfectly 
to give a picture which is actually better 
than the 'real' thing. All that appears 
on the screen is generated inside the 
Commodore, and this means that the 
pictures can not only be printed out 
or stored on disk for future use but 
the whole teletext process can be 
programmed. 

The manual is excellent because all 
of the key routines are fully 
documented so that any user can write 
a very powerful Basic program. In this 
way it is possible to select individual 
pages on any or all channels and save 
them or print them out (or both). The 
time saved is phenomenal because the 
program can run while you get on with 
something more important, the days 
of sitting waiting for the correct screen 
to come round a thing of the past. 



On disk, each screen only uses four 
blocks which means that in theory 166 
could be stored on each disk. The only 
problem is that the directory only has 
room for 144 entries so a copy of the 
master program and its machine code 
patch may as well be stored on each 
disk at the negligible cost of two 
screens. 

The uses of the system depend 
upon individual needs. If you're a 
football fan then all of the results can 
be stored for future reference, tele 
addicts can work out a complete daily 
viewing schedule or soap fans can keep 
a record of the story so far. 

The only problem is the cost of the 
units, £69.95 for the adaptor and 
£ 1 14.80 for the adaptor plus the tuner. 
The system renders teletext systems as 
something similar to Micronet without 
the user interaction, the price is not 
so high. After all. a modem would cost 
at least as much but on top of that 
would be the fees for accessing the 
system, which isnH the case with 
teletext. The Microtext teletext 
adaptor is highly recommended for 
those who can't be bothered with baud 
rates or panic about parities. It is a 
marvellous unit and so simple to use. 
Even if you dream of upgrading to the 
Amiga, you have no excuse because 
an Amiga Upgrader can be supplied 
for £34.90. 

In many descriptions of the future, 
the concept of a tailor-made 
newspaper that is prepared while you 
dress to be read at breakfast commonly 
occurs.. .this brings the future one step 
closer. A truly excellent utility which 
should ensure the future of coat 
hangers in my household! 

Touchline: 

Supplier: Microtext, 7 Birdlip Close, 
Horndean. Hants POS 9PW. Tel: 
(0705)595694. 
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Storage 



Need more array storage space 
for a particular application? 
There aren't many options 
available. Relative files can effectively 
extend memory, but there are draw- 
backs, for example speed of recall. 
This is slowish, especially for 
accountancy-type programs needing 
mathmatical treatment, because each 
record has to be read before the 
calculations. 

Another problem is wear and tear 
on the 1541. Ofcourseyoucan compile 
your program and create a bit more 
room for arrays and variables in the 
Basic storage area, but if you've 
already done this and still need more 
array storage, then what follows may 
be useful to you. 

Unused Memory 

The 64 has two 8k Ram areas which 
are often unused and are unavailable 
lo Basic. These arc the Rams behind 
the Kernal and Basic Roms. If you're 
using a compiled program, the com- 
piler will probably be using the 8k or 
Ram behind the Basic Rom for its 
library of routines, but this still leaves 
8k of Ram behind the kernal capable 
of array storage. 

Obviously if your program is 
uncompiled, you have 16k available to 
you behind both Kernal and Basic 
Roms. The 4k of memory from 
SC0(XX49I52) onwards is also availa- 
ble, provided you haven't already used 
some of it for a machine code routine. 

So assuming a compiled program 
is already in use (for speed and efficient 
memory usage), the program which 
follows uses part of the area above 
SC000 for a machine code routine and 
array reference store, and stores the 
array data strings under the Kernal 
Rom (SE000 upwards), giving an extra 
8k of array store all instantly available. 

The Program is arranged to store 
strings of up to 46 characters in length, 
giving 400 records if the average string 
length is 20 characters. The X and Y 




array references can take any value 
between 1 and 255. 

The number of records able to be 
stored depends on the average length 
of the strings, up lo a limit of approx- 
imately 800 fixed by the array refer- 
ence store (Index array) space. It's easy 
to increase the maximum string length 
which can be handled - this is dealt 
with later. 



Description of Program 

The whole consists of four parts: 

1. Basic program to act as subroutines 
from within your application to Read, 
Write and Amend the array. 

2. Machine code to carry out the actual 
operations, located SCO00-SC 1 36. 
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Figure 1 



SOURCE core 

!5 PPT 



; KPOM/RAM 
J FILENAME 
ORG JCOOG 
START 1 = IC150 
STAPT2=f E00O 
ZP = $FE 
LEM1 BYT O 
REGNO BVT 0 
COL BVT B 
INADD1 BVT 



fWRflV STORAGE 
SC-KROIVRRM STOP 



iNEKT VACANT INDEX 
; RRRV APDR LO/HI 
;NEXT VACANT STRG 
; ADDP LO/HI 



1" 
20 
36 
40 
50 
60 
70 

Be 
?o 

100 

110 INAM'2 
120 STftBDl 
130 STRBD2 
140 MflXPEC 
150 BVT 0 
160 SCHPTP 
170 BVT 0 
180 AMND BVT O 
190 1NIT LDA •< START 1 
20O LDY *> 5 THPTl 
INflDDl 
INRDD2 
tK START2 
»> STAPT2 
250 STfl STflDDl 
STV STRDD2 

RTS • END OF INITIALIZE 
. **#♦ WRITE CODING 
290 WRITE LDfl INflDDl 
300 LDV 1MRDD2 ;GET BVTES OF NEXT RD 
; OF INDEX RRRV 
STfl ZP i STORE IN ZERO PROE 
STV ZP+1 



BVT 
BVT 
BVT 
BVT 

TOTRL NO OF RECORDS 
BYT 0 

SEARCH COUNTER 



210 STfl 
220 STV 
230 LDfl 
240 LDY 



260 
270 
2S0 



310 
320 

330 

LDY HO 
350 LDfl LEN1 
360 STfl <ZP>.V 
370 LDfl RECHO 
3&0 IHV 

390 STfl '.2P>.V 
400 LDfl COL 
410 INV 

420 STfl «ZP».V 
430 LDfl STflDDl 
IHV 

50 STfl <ZP>.V 
LDfl STRDL'2 
INV 
STfl 
. STR 
CLC 

?10 LDfl INRDDl 
S20 ADC *>5 

STfl INflDDl . 
i INDEX flPRV 
LDfl BfOO 
ADC INADD2 
STfl INADD2 ; 
LDfl STflDDl 
LDV STADD2 
CAM NOW 



<ZP>.V ; 
ADDRSS 



ZP 

ARRAY flDDPSS PTR 



LEN RECHO COL STRD 



LO/HI BVTES OF THE 
PUT IN INDEX RRRV 



LOB RIWD TO NEXT 
START RDDRSS 



DITTO FOR HI BVT 



BE USED FOP STRG 



>20 STfl ZP 



630 

640 

650 

660 

670 

680 

690 

708 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

85-0 

860 

370 

830 

390 

?08 

910 

920 

930 

940 

950 

960 

?70 

980 

990 

1 000 

1010 

102" 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 100 
1 110 
1120 
1130 
1 14D 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 



STV ZP*1 i LO/HI OF STRG RDDRSS 
; SET TO ENABLE STG WRITING 
SEI 

LDfl ttXeei 101O1 ;CODE KPOM OUT 
STfl J01 

LDV **0 - . 

REBUFF LPR BUFF.V 
STfl <ZP>.V 



i GET 1ST CHAR 
STORE IH STRG RRRV 



IHV 

CPV LEN1 



BCC RDBUFF 



J DITTO HI BVT 

;stope IT 



END OF STRG ? 
; NO DO NEXT 
LDfl tlXOOI 10111 :RLL WRTNG DONE 
STR J01 ;KROH SWITCHED IN 
CLI 

CLC ;RDV STRG ftDDR FOR NEXT WRITE 
LDR STflDDl ; LOB STR RDDRSS 
ADC LEN1 ; ADVANCE TO NEXT VflCfl 
; STRG RDDRSS 
STA STRDDl ; STORE IT 

LDfl wee 

RDC STHDD2 
STfl STRDD2 
EXIT RTS 

; BUFFER WRITTEN TO STPG flPRV 
. RDDRSS FOP NEXT INDEX * STPG 
i UPDATED INDEX RRP HOLDS PflRAHS 

; ♦♦♦* READ CODING #»♦* 
LDV #0 

STV SCHPTP ; INITIALIZE SCHPTR 
SIV SCHPTR+1 
LDX •< START 1 
LDY' *t> START 1 

STX ZP ;LOB OF STRPT OF IHPX RRV 
STV ZP+1 ;HIB OF SIRT INDX RRRV 
TEST 1 LDV HI ; OFFSET TO REC 
LDfl REGNO 



CMP 
BNE 
LDV 
LPR 
CMP 
BEG 
ADV 

;to 

LDfl 
ADC 
STR 
LDR 
ADC 
STR 
LDV 
INV 
BNE 
INC 



<ZPJ.V ; IS THIS REC ? 
ADV JREC HOT FHD RDV RDDP 
#2 ;REC FHD OFFSET TO COL 
COL 

<ZP>.V J IS THIS THE COL? 

PSTRGI 3 BOTH FOUND PEflD/RMNB 

CLC JBOTH HOT FHD RDV INRDD 

NEXT INDEX APRV RDDPS 

ZP 

tt5 

ZP 

#0 

ZP+1 

ZP+1 

SCHPTP 



SKIP ;LOB NOT PASSED IFF 
SCHPTR+1 ;LGB PASSED *FF 
SKIP STV SCHPTR ,NEH LOB COUNTER 
CPV MRXREC JRLL PECS SEARCHED? 
BCC TEST 1 ;N0 DO NEXT REC 
LDV SCHPTR*! ;VES BUT CHK HIB 
CPV NRXREC+1 ;ALL PECS SEARCHED 
BCC TEST1 ; NO DO NEXT PEC 
LDA Ml ,VES BUT NO PEC FOUND 
STA LEN I ; SET FOP I CHAP 
LDA *45 1 CHPi FOR "-" 



1270 STA BUFF , RETURN REC AS "-" 

1280 RTS ; NO RECORD EXIT 

1290 RS-TRG I LPK ANND -SINCE BOTH PEC 

1300 ;« COL NOW FOUND PREP TO RD STPG 

1310 ;BUT FIRST CHECK FOR AMEND 

1320 CPX 1155 ;IS IT AMEND 

1330 BEG RESET IVES PPEP TO AMND STRG 

1340 LDV HO -NO PROCEED TO READ 

J350 LDA 'ZFJ.V iOET LENGTH 

1350 SI A LEN I i STORE LENGTH 

I370 LDV »4 . OFFSET TO NIB STRG RDDPS 

I330 LDA (ZP'.V ;HIB OF STRG RDDRSS 

1390 STA *FE , STORE IT 

1400 DEY i DEC PTP TO LOB 

1410 LDA '.ZP'.V I LOB OF STRG ADDRSS 

1420 STA ffFp 

1430 SEI 

1440 ldr ttrioenoioi ; CODE KROM OUT 
1450 STA «81 . SH KROM OUT 
1460 LDV WOO 

1470 RSTRG2 LDR C*FB>.Y ; GET CHAP 
1480 STA BUFF.V PUT IN BUFFER 
1490 INV 

1500 CPV LEN1 ; LAST CHAR ? 

1510 BCC RSTRG2 ! NO GET NEXT 

1520 LDH #r;00110111 ; VES ALL CHAPS 

1530 ; NOW TO SW IN KPOM 

1540 STA JOl : KPOM BACK IN 

1550 CLI 

1560 PTS i HLL READING DONE 

1570 i AMEND CODING TO REMOVE 

1530 i EXISTING RECORD BY SETTING 

1590 ! LEN1 PEC * COL TO ZERO 

1600 ; IN THE INDEX RRRV 

1610 RESET LDfl t»*0 

1620 LDV #0 ;OFFSET TO LEN 

1630 STfl rZP>.V , RESET LEN1 ZERO 

1640 INV 

1550 STA <ZP).V ; RESET REC ZERO 
1660 INV 

1670 STA <ZP«.V i RESET COL ZERO 

1630 JHP WRITE i WRITE NEW RMNDED STRG 

1690 BUFF BVT 0, REAP/WRITE BUFFER 

1700 BVT O 

1710 BVT 0 

1720 BVT O 

1730 BVT 0 

1740 BVT O 

1750 BVT 0 

176© BVT 0 

1770 BVT 0 

1780 BVT O 

1790 BVT O 

1300 BVT 0 

1810 BVT O 

1820 BVT 0 

1830 BVT 0 

1840 BVT 0 

1350 BVT 0 

1860 BYT 0 

1370 BVT 0 

1380 BVT 0 . END OF P/WPTE BUFFER 
1390 END 
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3. Array Index store created by the 
operators m/c holding the parameters 
of each array string and its location. 
This is created by the M/C during 
Write operations, and is located from 
SCI 50 (just above the operator M/C). 

4. String Store located from SE000 
onwards under the Kernal Rom. 

Index Array Store 
$C150(49488) Upwards 

This holds the refences for each String 
stored in the array. The conventional 
two dimensional array is AS(X,Y). lVe 
called the X value REC and the Y value 
COL (abreviations for Record No. and 
Column No - this gave me a better 
mental picture), although I've used X 
and Y in the Basic to transfer the 
requisite array block references. Thus 
the Array Index holds the following 
in regular 5 byte blocks: 

1st byte LEN length of the string 
2nd byte REC ie X value 
3rd byte COL ie Y value 
4th bye Lobyte of string address 
5th byte Hibytc of string address 

Thus a search up the Index array 
in 5 byte steps will find REC and COL 
(if they exist), hence LEN can be 
found, as well as the address at which 
to read the string. 

No Blanks - Or Nulls 
Stored 

If a search of the index array fails to 
find a particular X.Y combination, the 
M/C generates a There arc thus 
no "-" or null strings stored in the 
array, which saves both index and 
string store memory, particularly as in 
many array applications the array 
consists mainly of blanks or nulls! 

Description of M/C 

Read this in conjunction with the 
source and m/c listing, (figl). After 
some address definitions, lines 70 to 
180 set the variables, most of which 
will be obvious, but some merit some 
reference. 

INADDI&2 always contain the lo/ 
hi address of the start of the next Index 
arrav to be written to (initially $050 
&C15I). 

STADDI&2 similarly always con- 
tains the start of the next String 
address to be written to (initially SE000 
under Krom). 

MAXREC and its next byte (lo/ 
hi) always contains the total number 
of strings which have been written, ie. 
No. of X.Y combinations. 



SCHPTR and its next byte (Lo/ 
Hi) is a search counter used by the 
m/c program to keep track of its 
search loop. 

AMND is a single byte flag used 
to define when an Amend is to be 
carried out. 

Lines 190-270 are the initialization 
routine, hence a SYS49I64 (SCOOC) 
must be called once at the beginning 
of your Basic Program, the m/c 
reutrning via the RTS in line 270. 
having set the start addresses of the 
Index array and the string store. 

Write Operations 

Write operations commence in line 290 
called by SYS49185 (SC021); the 
address of the next Index array byte 
is then obtained, and LEN, REC, 
COL, STADDI and STADD2 stored 
in sequence via lines 290-480. thereby 
creating the next (or first) element of 
the Index array store. 

Lines 500-570 increment INADD 
1&2 by 5 ready for the next 
write operation. Lines 580-750 get the 
next string address (STADDI &2), and 
read the buffer store (which is the 
string to be stored) into the memory 
via a loop between lines 690-730. Lines 
650-670 & 740-760 deal with interupts 
and switch the Kernal Rom out and 
in before and after the actual write to 
memory operations. Lines 770-840 
update STADDI&2 ready for the next 
write operation, the sequence ending 
at line 850 with a return lo Basic. 

Read Operations 

Read operations commence at line 900 
called by SYS49295 (SC08F). Having 
set SCHPTR to zero and set the index 
arrav start address in ZP&ZP+I via 
lines" 9 1 0-970, it searches for RECNO, 
advancing up the index array via the 
branch in line 1010 (testing SCHPTR 
against MAXREC on the way for end 
of index), the branch at line 1230 
returning to TESTI at each Index 
array address advance (all via lines 
1060-1230). 

If RECNO is found at the branch 
test in line 1010. it then immediately 
checks for COL since we're looking 
for both RECNO and COL in the 
SAME index array record (lines 1020- 
1050). The branch line at 1050 shows 
that both RECNO & COL are found 
sending operation to lines 1290-1560 
to read the string. Failing the branch 
at 1050 leads directly to 1320-1460 to 
advance further up the index as above. 

Reading the string is the inverse 
of a Write operation, get string length. 



get string address, switch out Kernal 
not forgetting interupts, read string 
into buffer via the loop in lines 1460- 
1510, reset Kernal, reset interupts and 
return to Basic via RTS in line 1560. 
Two points lo note: 

1. Failure at the branch in line 1230 
occurrs if the particular RECNO/ 
COL combination can't be found in 
the Index array, and leads on to lines 
1240-1270, whereby a Blank character 
is returned prior to the return to Basic 
via RTS in line 1280. 

2. Immediately on entry to the read 
string coding ( lines 1 290-1790), a check 
is made to see if an amend operation 
is intended (lines 1290-1330). 



Amend Operation 

To save coding, this uses the search 
part of the Read and Write operations 
to rewrite a 55 and a Read operation 
is called. The program then finds the 
Index array record, but on branching 
to the read String section and AMND 
check in lines 1290-1330 diverts the 
program lo lines 1610-1680. 

If an amend is inadvertently 
attempted on a RECNO/COL com- 
bination not present in Ihe array no 
harm is done, and the program exits 
at RTS in line 1280 having set a **- 
" in the buffer, bui without writing 
anything. 

'Lines 1610-1680 set LEN.RECNO 
and COL to "0" in the index array, 
and then jump to the WRITE coding 
lo write a new record from the buffer 
at a new string address which will 
have the original RECNO/COL ref- 
erences in its new index. 

Since we don't use a "0" as either 
a RECNO or COL reference, the old 
index record and its associated string 
won't now be found, but the new index 
and string will. This leaves the Index 
array and String storage areas contain- 
ing redundant data, but both will be 
removed and memory recovered when 
the array is next saved to disk or tape 
and subsequently reloaded! 

Procedure 

To use the array program (having 
loaded ii to memory and called the 
initialization routine) we need the 
following actions in our Basic routine. 

WRITE 

1. Poke string length (LEN), RECNO 
(x value), COL (y value) into locations 
49152, 49153 and 49154 respectively. 

2. Evaluate Lo/Hi values of MAX- 
REC (total number of X, Y records) 
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Figure 2 

63 40000 REM * * * ******* ■ ****** » 

.A ,,,,,,,,, , 

Bl 40010 REM **M COMMUNICATING 

BASIC ***** 
A7 40020 REM *** KROM/RAM ARRAY 

STORE ***** 
01 40030 REM ****************** 
************ 

SB 40040 REM 

SE 40050 REM *** WRITE TO KROM/ 

RAM STORE ***** 

39 40060 IFB»»"-"ORB*=""THENRET 

URN 

31 40070 M7.-MV.+1 

B2 40080 HB/C=MV./256lLB'/.-*M7.-<HBV. 
*256> 



and Poke into 49159 and 49160. 

3. Poke Ihc string characters into 
locations 49442 onwards, but beware 
of limit of length. 

4. Call SYS49185. 

READ 

Poke RECNO and COL into locations 
49153 and 49154. 

2. CallSYS49295. 

3. PEEK49I52 for string length 

4. PEEK49442 onwards to length of 
string to reassemble string record. 

AMEND 

{, Carry out a read operation, if a *- 
"is returned proceed to WRITE. N.B. 
You'll probably need a read and 
display before amending a record to 
see what was there anywav! If not a 
"-"character 

2. Poke RECNO and COL to locations 
49153 and 49154. 

3. Increment MAXREC. evaluate Lo/ 
Hi values, poke to 49159 and 59160. 

4. Increment a Basic Counter to keep 
track of the number of amend 
operations. 

5. Poke 55 to 49163 (AMND Flag). 

6. Poke new string length into 49152. 

7. Poke the new string characters to 
49442 onwards 

8. Call SYS49295 (Read Operation). 

9. Poke 0 into 49163 (Reset AMND). 

Obviously, the three proceeding 
Basic operations would be subroutines 
to be called as needed within your 
program. 

Fig 2 shows the Communicating 
Basic routines ready for use as Gosubs, 
BS is the Write and Read Input/ 
Output string variable, whilst ZS is the 
Amend Input variable, thereby ena- 
bling checks lo be carried out. 

The Communicating Basic shown 
also enables a record to be deleted 
□sing the AMEND operation by 
Inputing a "-" character. 



58 40090 C=LEN (B* ) 

F5 40100 F0KE49153,X:P0KE49154, 

V t POKE 49 1 52 , C i P0KE49 1 59 , LB',: : 

POKE49160,HBV. 
5D 40110 FaRI=lT0CiP0fE4944l+I, 

ASC(MID*(BS,I,1)):NEXTI 
5D 40120 3VS49 185: RETURN 
84 40130 REM ***** READ FROM KR 

OM/RAM STORE ****** 
91 40140 P0KE49153, XlP0KE49154, 

YlSYS49295 
26 40150 C=PEEK(49152) !B*="":»1 

5B 40160 FDRI^ITOC: Z=PEE> M9441 
+1) :6l*=CHR«(Z) :BS=BS+B1*:NE 
XT I: RETURN 

25 40170 REM ***** AMEND KROM/R 
AM STORE ****** 

72 40180 IFZ»«" "THENRETURN 



Loading and Saving the 
Array 

Figure 3 shows the coding needed to 
save a sequential Tile of the array and 
is conventional, apart from the follow- 
ing points. M% is the Basic counter 
for MAXREC the total number of 
records. 

AM% is a counter for the number 
of amend operations carried out, since 
each amend operation increments M% 
but resets the original record (up to 
now still in memory) so that it cannot 
be read, it is necessary to decrement 
M% by the number of amend oper- 
ations. This is carried out by line 
50070. 

Since the original of the amended 
record cannot be read, the save 
operation removes it from the array 
file, and on reloading the memory 
space it used is thereby recovered. An 
unusual garbage collect routine! 

Lines 50140/50150 read the array 
and prevents blank records being 
written to the file - since blanks are 
all generated by the m/c program, 
they're not filed. 

It's essential to save MAXREC, 
and usually necessary to know the 
range of X and Y values in the array 
- these arc saved as M%,M and N. 
Note that in lines 50160-50180 the 
particular X.Y values are saved with 
each string. 

Unlike most sequential files, the 
load program does not have to be a 
mirror image of the save program. 
MAXREC is the number of records 
in the file, so a simple loop of 
MAXREC (via test in 50320) reads 
every item. Since each record includes 
its X.Y value, the whole array is easily 
reconstructed using the Write 
operation. 

Obviously for Tape operations all 
the OPEN and CLOSE commands 
need suitable corrections. 



00 40190 G0SUB40130: IFB**"-"AND 

2*="- "THENRETURN 
E5 4O200 IFB*="-"THENB*=Z*:Mi>M 

7t+l : G0SUB4005O: Z* = " " • RETURN 
Bl 40210 B*=Z»: AM'/.=AM7.+ 1 : M7.=M'/.+ 

1 

E7 40220 P0KE491S3.XiP0KE49154, 
V : P0KE49 1 63 . 55 1 C=LEN { BC > : PtJK 
E49152.C 

D3 40230 HB7.=M7./256:LB7.=M7.-(HB7. 
*256) 

B7 4O240 P0KE49159.LB7.:FOKE4916 
O.HBV. 

BF 40250 F0RI = 1T0C:PDKE49441-»I, 
ASC<MIDt(B», I, 1) ) tNEXTI:SY54 
9295 

AC 40260 P0KE49163,0i IFZ$="-"TH 

ENM7.=M"/.- 1 
6B 40270 Z*="": RETURN 



Figure 3 

4E 50000 REM ****************** 

*********** 
47 5OO10 REM **** DISK LOAD AND 

SAVE ***** 
B6 50020 REM ** KROM/RAM ARRAY 

STORAGE *** 
74 50030 REM ****************** 

*********** 
B4 50040 REM 

Fl 50050 REM ****** WRITE RECOR 

D5 TO DISK ****** 
C9 50060 PRINTi PRINT" CSPC5, RVSD 

N,SPC6JSAVING F ILECSPC6, RVSO 

FF 3 " 

4E 50070 M17.=M7.-AM'/.:REM RESET V 
ALUE OF M7. READY FOR THE NEX 
T READ 

IF 500BO 0PEN9. 8, 9. "FILENAME, 5, 
W" 

EC 50090 PR I NT #9, M: REM MAX VALU 
E OF X 

20 50100 PRINT#9,N:REM MAX VALU 
E OF Y 

2F 50110 PRINTtt9,M17.:REMSAVES R 

ESET VALUE OF MV. WILL BE REA 

D IN AS M7. 
F4 50120 FOR X=1T0M 
9C 50130 FOR Y=1T0N 
45 5014O GUSUB»***«:REM Jfi-L RE 

AD SUBROUTINE 
04 50150 IFB*="-" 1HEN5O190:REM 
IGNORES BLANKS NOT NEEDED IN 
DISK FILE 
AO 50160 PRINTM9, X 
CB S0170 PRINTH9.Y 
C3 50180 PR1NT#9.B* 
A9 50190 NEXTY 
B6 50200 NEXT X 
D3 50210 CL0SE9t RETURN 
9E S022O REM ****** READ RECORD 

S FROM DISK ***■*■*•( 
7E 50230 SYS49164:REM PE-INITIA 

LIZE MC READY TO WRITE NEW A 

RRAY DATA FROM DISI 
66 50240 PRINT:PR1NT"CSPC5,RVS0 

N,SPC5JL0ADING FI LEL SPC5, RVS 

OFF 3 M 

F7 50250 OPENS. 8, 8, "FILENAME. 5, 

R" 

45 50260 INPUTttB.M 
40 50270 INPUTH8,N 

8D 50280 INPUrt»B.M7.:M17.=MV.:MV.=0 

IE 50290 INPUT«S,X 
29 50300 INPUTW8.V 

28 50310 IMPUTUB, R*: GOSUB* * I **: 
REM CALLWRI1E SUBROUTINE MIL 
L RECREATE VALUE OF M7. 

76 50320 IFMX<M17.THEN50290:REM 
CHECK LENGTH OF FILE 

9A 50330 CLQSEB: RETURN 
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Change Size of Buffer 

Since the Buffer store is located after 
the operative, M/cand before the start 
of the index array, alt that's needed 
to increase/ decrease the size of the 
Buffer is to raise or lower the start 
of the Index array - i.e. address of 
START I. This is easy if you're work- 
ing from the Source Code via an 
Assembler, otherwise POKE the 
revised address Lo/Hi bytes into 
SC022, C024 and $C0AD, COAF. 



Use RAM under Basic 
Rom 

This depends on exactly what you 
want. Replacing the use of the RAM 
under the Kernal ROM by that under 
the BASIC ROM only involves a 
change of address of START2 to 
SA000 and a change of ROM/ RAM 
switching code, see below. 

If however, you want to use BOTH 
RAMSgiving I6k of array stringstore, 



then proceed as follows: 



1. Duplicate the M/C commencing at 
a revised address further up the SC000- 
A0O0 memory space, not forgetting to 
change the Index Array start address 
(to an apropialc value) and string store 
START2 address to $A000. 

2. Change the ROM/RAM switching 
codes in lines 660/ 1440 to %00l 101 10 
(54 Dec ie. Basic Rom out) the 



Figure 4 



AC 
OD 
BO 
4A 



DA 
EA 
04 

CC 



OB 

07 
4F 
68 

F2 

B2 
B7 



94 

26 
F8 
B9 
E7 
F6 
58 

89 

CO 

EF 



8F 

49 
DB 

F5 
AF 

43 



10O REM »*«TEST PROGRAM RO/R 
A ARRAV STORAGE **** 

110 REM ST ART 2 SET TD *EOO0 C 
KERNAL ROM> 

120 REM INDEX ARRAY ( START 1 > 
SET TO CI SO 

130 GOSUB1010:SV549164:M=OiM 
V.=0:M17.=O:N=O: AM'/.=0:REM LOAD 

MC AND INITIALIZE**** 
140 REM ******** UR1IE ***** 
******* 

150 FRINT"CCLRJ ,, :G0T0250 

160 PRINT"CCLRJ" 

170 PR.INT:PRINT"C5PC63WRITE 

SEQUENCE" 

1B0 PRINT: PRINT" INPUT REC 
NO & COL NO SEPARATED BVCSPC 
B ] A 
190 

" X 
200 
210 
220 



CDMMA": INPUTX, Y 



RECORD NO 



INPUT STRI 



7E 

EE 

73 



PRINT: PRINT" 
iiy ii 

IPX MTMENM^X 
IFY. NTHEMN=Y 
PRINT: PR INT" 
NG": INPUTS* 

230 1 FLEN I B* > - 20THENG0SUB9B0 
: GOT 0220 
240 G0SUB760 

250 PRINT: PRINT" PRESS W FOR 
WRITE, R TO READ, A TO AMEND, 
D FOR DISK FUNCTIONS" 
260 GETA*: IFA«= " "THEN260 
270 IFA«="W"THEN160 
280 IFA*="R"THEN330 
290 IFA*«"A"THEM390 
300 IFA*="D"THEN1060 
310 G0T0260 

320 REM ******** READ ****** 

setts**** 

330 PRINT"CCLR]" 

340 PRINT : PRINT " CSPCS JREAD S 

EQUENCF " 

350 PRINT: PRINT" INPUT REC 

NO ?. COL NO SEPARATED BYCSPC 

BDA COMMA" i INPUTX,Y 

360 G0SUB840:PRINT:PRIN(" ST 

RING IS ri "lB» 

370 GOT0250 

3B0 REM ******** AMEND ***** 
*t***««*i* 

390 PRINT"CCLRD" 

400 PRINT:PRINT"CSPC63AMEND 

SEQUENCE " 

410 PRINT:PRINT" INPUT REC 

NO -•. COL NO SEFARATED BYCSPC 

B]A COMMA" : INPUTX, V 

420 PRINr:PRINT" RECORD NO " 

;X",»Y 

430 PR INT: PR I NT" INPUT STRI 
NG"1 INPUTZ* 

440 IF LEN<Z») >20THEMG0SUB9B 
0IG0T0430 
450 GOSUBBBO 
460 G0T025U 



9F 

C3 

8C 

6D 
5E 

DB 

42 



01 
59 
42 

43 



93 
86 
3D 
3F 
44 
B9 
70 

94 



F4 



3B 
97 
92 
C3 
00 
FB 
5F 



6C 
40 
9A 

CC 

BO 
B9 

F6 
B4 



CO 



77 



470 REM ***•»* WRITE RECORDS 

TO DISC ****** 
4B0 PRINT : PR I NT " I SPC5, RVSON . 
SPC61SAVrNG FILErSPC6,RVS0FF 
2" 

490 miv.=m::-am:::rem reset val 
ue of m*/. ready for the next 

READ 

500 0PEN9, 8, 9, A* 

510 PRINTtt9,M:REM MAX VALUE 

OF X 

520 PRINTH9, N: REM MAX VALUE 
OF Y 

530 PRINTtt9,MlV.:REMSAVES RES 

ET VALUE OF MV. WILL BE READ 

IN AS MV. 

5«0 FOR X=1T0M 

530 FOR V=1T0N 

560 G0SUB840:REM CALL READ S 
UDROUT I NE 

570 IFB*="-"THEN610:REM IGNO 
RES BLANKS NOT NEEDED IN DIS 
K FILE 

5SO PRINT#9. X 

590 PRINTH9.Y 

600 PRINTH9. B* 

610 NEXTY 

620 NEXTX 

630 CL0SE9I RETURN 

640 REM ****** READ RECORDS 

FROM DISK ********* 

650 SYS49164:REM PE-INITIALI 

ZE MC READY TD WRITE NEW ARR 

AY DATA FROM DISK 

660 PRINT: PRINT" CSFC5, RVSON. 

SPC5 3 LOAD I NG F I LECSPC5, RVSOF 

F3" 

670 0PEN8, B, B. A* 

680 INPUT*»8,M 

690 INPUTttB, N 

700 INPUTWS, MXtMX-MXi nx*o 

710 INPUTBS.X 

720 INPUTttS.Y 

730 INPUTB0, BSr G0SUB76Oj REM 

CALLWRITE SUBROUTINE THIS Wl 

LL RECREATE VALUE OF MV. 

740 IFM7.- M1V.THEN710 

750 CLOSEB: RETURN 

760 REM *** WRITE TO IROM/RA 

M STORE ***** 

770 IFB*="-"ORB«*""THENRETUR 
N 

7B0 
790 
56) 
BOO 
BIO 



M7.=MV.+ 1 

HB7.=MV./256:L8-/.=M7.-(HB;'.*2 



C=LEN(B»> 

P0KE49153, X:P0KE49154, V: 
P0KE49 152 , C : P0KE49 1 59 , LB'i ! PO 
KE49160.HB7. 

820 F0RI=lTnC:P0KE49441*I,AS 

C(MID*(B*,I,i>>»NEXTI 

B30 SYS49185: RETURN 

840 REM ***** READ FROM KROM 



10 
OD 
34 

AO 

OF 
73 

ID 

25 
A3 

F7 
IB 

E3 

EO 

CF 
69 

EA 

ID 

3D 
DO 

84 

39 
29 

EO 



3A 
9E 
5E 
63 
5A 



27 



46 
02 



/RAM STORE ****** 

850 P0KE49153, X:PQKE49154, Y: 

SYS49295 

860 C=PEEK (49152) :B*="":B1*= 
it ii 

870 F0RI"1T0C:Z=PEEK(49441+I 
) : BI*=CHR* (Z) : B*^B* «B 1 f : NEXT 
I i RETURN 

8B0 REM ***** AMEND KROM /RAM 

STORE !***#* 
890 IFZ*=" "THENRETURN 
900 G05UBB40: IFB*»" - "AMDZ«= " 
-"THENRETURN 

910 I F B*= " - " THE NB* = Z * : MV.=-M7.t- 
1 : G0SUB760: Z»= " " : RETURN 
920 B«=Z«: AM7.=AM7.+ I s M7.=M7.+ l 
930 P0KE491 53, X: P0KE49154, Y: 
P0KE49163,55:C=LEN(B*) : P0KE4 
9152,0 

940 HB7.=M7./256:LB7.=M:4- (HB7.*2 
56) 

950 P0KE49159.LB7.:P0KE49160, 
HB7. 

960 F0RI = 1T0C:P0KE4 , '441 *-I.A5 
CCMID*(E<*. 1,1)1 :NEXTI:SVS492 
95 

970 P0KE49163 f Oi IFZ*="-"THEN 
M7.=M7.-1 

9B0 2t=" " : RETURN 

990 REM ******** ERROR MESSA 

GE ******** 

1000 PRINTiPRlNT"CSPC53STRIN 
G TOO LONG PLEASE RE-ENTER": 
RETURN 

1010 REM «*** MC LOADER KROM 

/RAM STOR ***t 

1020 PRINT " CCLRI " 

1 030 PR I NT : PR I NT " CSPCS , RVSUN 

,SPC53MC FILE LOAD I NGCSPC5. R 

VSOFFI" 

1040 0PEN8, 8, 8, "MC-KRQM/RAM 
STOR.S.R": INPUTWS, SA, EA: IFST 
THENCLOSEB: RETURN 
1050 FORI-SATOEA: INPUTttB. T :P 
OK EI . T: NEXT I : CLOSES: RETURN 
1060 REM ********** LOADING 
J* SAVING ARRAY FILES TO DISK 

*********** 
1 070 PR I NT " I CLR D " l PR I NT : PR I N 
T" INPUT L TO LOAD, S TO SA 
VE" 

10B0 GETA*: IFA*»" "THEN1080 
1090 IFA*="S"THEN1 120 
1100 IFA*="L"THEN1130 
1110 GOT 1070 

1120 INPUT" ENTER FILENAME"! 
A*:A*=A**",S,W":G0SUB47OjGDT 
01140:REM SAVING FILE 

1130 INPUT" ENTER FILENAME": 

A«t A*=A»+" , S, R" : G0SUB640: REM 
LOADING FILE 

1140 GOT0250 

1 150 END 
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switching in codes do not need any 
change. 

3. Duplicate the Basic subroutines, but 
include the changed SYS calls. There 
is no need to change the Basic var- 
iablcblc name unless your program 
requires it. 

Handling Several Arrays 

The Kram and/ or the Basic Ram space 
gives one or two large arrays, to 
provide more you can either replicate 
the M/C, Index, arrays and commun- 
icating Basic, a set for each array (this 
seems to be poor memory usage to me), 
or preferably store all arrays within 
the one or two large ones by juggling 
the array references. 

The first option uses up memory 
in duplicated M/c coding, takes longer 
to load in etc. In each large Kram or 
Basic ram array X and Y can both 
take any value between I and 255. 

Thus if for example you want as 
extra arrays CS, 50. 50 DS, 50 50 and 
ES, 50, 50, then these can be stored 
as three apparently separate arrays in 



the larger array space since X and Y 
be changed for each by some simple 
Basic lines. 

So with a few filtering lines of Basic 
added to each of the Write, Read and 
Amend communicating coding 
(assuming BS is the common array 
reference) eg:. 

IFDS^BS THEN 

X=X+50: Y=Y+50: GOSUB***: 
DS=BS: X=X-50: Y=Y-50: RETURN 

IFES=B$ THEN 

X=X+I00: Y=Y-*I00: GOSUB***: 
ES=B$: X^X-100: Y=Y-I00: RETURN 

Where GOSUB*** takes the pro- 
gram to what would be the normal 
Communicating Basic start line for 
Write, Read and Amend coding, wc 
can now access three different arrays. 
Obviously there is insufficient memory 
space to use every X, Y combination, 
but after all you can't use AS(IOOJOO) 
to hold much in the standard Basic 
arrays! 



Conclusion 

So there you are. Memory usage is 
entirely in your own hands! The M/ 
C won't give any out of memory 
messages: it will just plough on 
regardless. However, by arranging for 
your Basic program to sum string 
lengths and count-up Index array 
usage (5*M%bytes), you can easily 
provide your own warnings. 

You must include some control to 
limit each string's input length 
(together with an apropiate error 
message) otherwise you could over- 
flow the Buffer and start to overwrite 
the Index array record (Disaster! 
Program crash at next Read). 

Fig. 4 gives a Basic test program 
for you to try out to get the feel of 
the scheme (including a Sequential file 
M/C loader). Figs 5 &6 gives the M 
C's in DATA form for both Kernal/ 
Ram and Basic/ Ram storage the 
Basic/ Ram code being set to co-exist 
with the Kernal/ Ram store, thus 
realizing the maximum storage 
available. 



Figure 5 



POKE I. A NEXT I 



KERNAL RAM ARRftV STQRME 



49152 TO 49462 : READ « 
Q, 0. e. 0, 0. 0. a. 0, 
0. 0. 0, 0, 169, 30, 169/ 193, 
141, 3- 192, 149, 4. 192, 169. 9. 
169. 2£4* Ml, 3, 192, 149, 6, 132, 
96. 173. 3. 192, 172 , 4. 192, 133, 
251, 132, 252, 169, 0, 173, 0. 192. 
145, 251. 173, 1, 132. 209, 145. £51, 
173, Z. 132, 290. 145. 251, 173, 5, 

132. 209. 145. 251, 173, 6, 192. 209. 
14?, 251, 24, 173. 3, 192. 195. 5. 
141, 3, 192, 169, 9. 169, 4, 192, 
141, 4, 192, t73, 5, 192. 172. S> 
192, 133. 251. 132, 252, 120, 163- 53, 

133. 1. 160- 0, !?3. 34, 193- 145, 
251. 209, 294. 8, 192, 144, 245, 169, 
55, 123. 1, 98. 24, 173, 5, 192. 
L69- 0, 192, 141, 5, 192, 169, 8. 
109. 6, 192, 141. 6. 192, 96, 160, 

0. 140. 9, 192. 140, 10, 192, 162, 

89. 160. 193, 134. 251- 132. 252. 169. 

1. 173, 1, 192, 209. 251, 298, 9. 
169. 2, 173, 2, 192, 209. 251, 240, 
49, 24, 165. 251, 105. 3, 133, 251, 
169. 0. 101, 252- 133. 252, 172. 9, 

192, 200, 208, 3, 238. 10. 192, 140, 

9. 192. 204, 7. 192. 144, 208, 172, 

10. 132. 204. 8. 132, 144, 209, 169. 
1. 141- 0, 132, 169, 45, 141. 34. 

193, 96. 174. II, 192. 224, 55, 240. 
42. 160. 0, 177, 251, 141, O, 192, 
169, 4, 177, 231, 133- 254, 136. 177, 
231. 133, 252, 120, 169, 53, 133. 1, 
160, 8- 177. 253, 153. 34, 193. 200, 
204. 0, 192, 144, 243- 169, 55, 133, 
I, 88. ?6, 169, 0, 160, 0, 143. 

231, 200, 145. 251. 200, 143, 251. 76. 
23, 192. 0, 0, 0. O, 9, 9, 
0. 0. 0. 0. 0. 8. 9, 0, 
0. 8, 0, O, 0, 0, 



tea 


FOP 1 = 


hp 


DATA 


[28 


DATA 


IjO 


PATA 


149 


DATA 


139 


DATA 


160 


I'MTf 


170 


DATA 


188 




198 


DATA 


200 


DATA 


210 


DATA 


220 




230 


DATA 


240 


DATA 


230 


DATA 


249 


DATA 


270 




2E0 


DATA 


2S0 


DATA 


3(?0 


DATA 


310 


DATA 


328 


DATA 


338 


DATA 


340 


DATA 


330 


DATA 


360 


DATA 


370 


DATA 


388 


DATA 


339 


DATA 


400 


PATA 


*19 


DATA 


429 


DATR 


439 


DATA 


449 


DATA 


458 


DATA 


464 


DATA 


479 


DATA 


408 


:=•'- 


439 


DATA 



INITIALIZE SVS49I64 l#ITE SVS49135 READ 3VS49293 BUFF 49442 
L£N 43152 PECMQ 49153 COL 49154 flRXREC 49139-49160 A(1MD 49163 



Figure 6 



POKE I. A NEXT I 



SASIC PAM APPAV STORAGE 

180 FOR I» 51536 TO 51846 READ A 

no data e, 0, e, e, e, e, 0, 0, 

120 DATA 0, 0, 0, 0, 169, 160, 160. 202. 

130 DATA 141. 83, 201 140. 84. 201. 169, 0, 

140 DATA 160. 160. 141. 85. 201, 140, 86. 201. 

150 DATA 96, 173. 83. 201- 172, 84, 291. 133. 

160 DATA 231, 132, 252. 168, 8, 173. BO. 201, 

179 DATA 145- 251. 173. 81- 20I , 200. 145, 251, 

I60 DATA 173, 82. 201 . 200, 143, 251, 173- 05. 

190 DATA 201. 200, 145, 251, 173. 86, 281 200. 

200 DATA 145, 251, 24. 173. 83, 281, 105- 5, 

210 DATA 141. Q3. 201. 169. 0, 109, 04, 281, 

220 DATA 141. 84. 201, 173. 85, 281. 172. 66, 

230 DATA 201, 133, 251, 132. 232. 120. 169. 54. 

=48 DATA 133, 1- 160. 0. 185, 114, 202, 145, 

230 DATA 231. 200. 204, 60, 201, 144, 245, 169. 

260 PATA 55, 133- U 86, 24- 172. 65, 201. 

270 PATA 103. 88. 201, 141. 85. 201, 169- 0, 

230 PATA 109, 06- 201. 141. 86. 201, 36, ISO, 

290 PATA 0, 146. 69- 201, 140, 90. 201- 162, 

300 PATA 160. 160. 202, 134. 231 . 132. 252. 160. 

310 PATA 1, 173, 81, 201. 209, 251, 20&. 9. 

320 PATA ISO. 2, 173, 82. 201, 209, 251, 240. 

230 PATA 49. 24, 165. 231, 105, 5, 133, 231. 

?40 DATA 169- 0, 101, 252, 133- 232. 172. 89, 

250 PATA 201. 208, 206, 3. 238. 96, 201, 140. 

360 PATA 89. 201. 204. 37, 261, 144, 20&. 172. 

370 PATA 90- 201. 204. 38, 201, 144, 200- 169, 

300 PATA 1, 141, 80. 201. 169, 45, 141- 114. 

230 PATA 202, 96. 174, 31. 201. 224. 55- 240, 

400 PATA 42. 160. 0. 177, 251, 141, 80. 201. 

410 PATA ISO, 4, 177. 231, 133, 254, 136. 177, 

420 PATA 251. 133- 253. 120, 163. 54, 133. 1. 

420 PATA 160, 0, 177. 233, 153. !14, 202, 200, 

44!.« DATA 204 , 80 . 201. 144 , 245. 169 , 55, 133, 

450 DATA 1, 88. 96, 169- 0, 160, 8. 145, 

460 PATA 231, 200. 145. 251, 200, 145. 251, 76. 

470 PATA 113. 201, 0, 0, 0, 0, Q, 0, 

430 pata e, o. o. 0, e. e. e. e, 

490 PATA 0. 0, 0, 0, 0, 8, 



INITIALIZE SYS51546 WRITE SVS31569 READ SVS51673 BUFF 51326 
LEN 5133S PECNO 51537 COL 51336 MAXPEC 51543-51544 A?DIP 51347 
INDEX ST0°E 'CAAO (51B72* UPWARDS 
3TPIIIG ?T0RE *A0OO '48960' TO «CO0O (42152) 
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When you buy your first 
Commodore 64 computer, 
the first thing that hits you 
is the fact that you dont have 64K 
of memory at your disposal. The 
second surprise is that the computer 
has in fact 88K of memory and not 
64. 

How is this possible, you ask 
yourself, especially when the address 
bus is only 16 bits long? The secret 
is in the design of the 6510 processor 



IS * 



FFFF 



EOOO 
DFFF 

DOOO 
CFFF 

cooo 

BFFF 



AOO0 

9FPF 



BK ROM 




;V; : 4K ROM || : : -If; 




4K RAM 


■ ■ ■■ 


8K ROrtiplf 


f 

i 

' : : ■ j : i 



QOQCI 



40K RAM 



66535 



57344 
57343 

53248 
53247 

49152 
49151 



40960 
40959 



chip, and the design of the RAM 
ROM areas themselves. Before we get 
into technical detail on how to juggle 
memory around, we should take a look 
at Figure I. 

This is how your computer's 
memory looks on power-up. We call 
this the 'Memory Map'. The memory 
of the Commodore 64 can be set to 
8 different maps. What these maps 
provide, and how to obtain them, will 
be explained later. For now refer back 
to Figure 1. 

As you can see, the map is split 
up into areas. We call these areas 
Zones. Each zone starts and ends at 
specific address locations within the 
memory. From 0000-9FFF hex (0- 
40959 decimal), we have Ram. From 
A00O-BFFF hex (40960-49 1 5 1 
decimal), we have Basic Rom. From 
COOO-CFFF hex (49152-53247 
decimal), we have more Ram. From 
DOOO- DFFF hex (53248-57343) wc get 
more Rom and finally from E000- 
FFFF hex (57344-65535 decimal) we 
have the Kernal Rom. 

However, three of these zones have 
two lots of memory occupying the 
same space. This second memory area 
is known as the 'Shadow* or 'Hidden' 



Ram. The areas in question arc A000- 
BFFF. DOOO- DFFF and F000-FFFF. 
This then is how the 64 manages to 
squeeze not 64K but 88K of memory 
into its little size. 

So just what exactly have you got 
available to yourself on intitial power 
up? Figure 2 shows a broken-down 
version of Figure !. This is the default 
memory map, as you can see from the 
diagram. 

Provided you are only writing 
short, no-nonsense basic programs, 
this memory is quite adequate. 
However, the time will come when 
you'll want to expand your 
programming techniques. This will 
entail redefining the character set using 
user-designed screens, and perhaps 
adding music and scroll routines, or 
writing your own basic command 
words. The list is endless. 

Now it becomes all too apparent 
that this memory is not enough. 
Somehow, you must juggle around 
with memory to get the extra you 
require. Before you can do this though. 
youH need to know something about 
the 6510 processor chip, and memory 
locations 0000 and 0001. 

Residing on the chip is an Input/ 



FFFF 



E0O0 
DFFF 

DOOO 
CFFF 

COOO 
BFFF 



A 000 
9FFF 



8000 
7FFF 



4000 
3FFF 



0000 



KERNAL ROM or 
SHADOW RAM 



I/O Or CHAR ROM 
or RAM 



RAM 



BASIC ROM or 
SHADOW ROM 
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Output port that's responsible for 
telling the computer where Ram, Rom 
and Input , Output will appear within 
the computer's memory. A word of 
caution: this port also controls the 
cassette deck operations, so be careful, 
especially if you are not a drive user. 

The port for the chip appears at 
address 0001 of the memory map, the 
Data Direction Register for the port 
at memory location 0000. Like all 
other ports of the system, this 6510 
port is controlled by the Data 
Direction Register (known as the 
DDR). The DDR controls whether a 
given bit will be set for input or output. 
The actual transfer however, is carried 
out through the chip port. 

If all this seems too complex to 
follow, look at figure 3. This should 
help to make things a little clearer. The 
default values for the DDR are shown 
in Figure 4. The l's signify an output 
and the 0's an input. Judicious 
tinkering with these control bits allows 
us to juggle around with memory. 

Before showing the eight different 
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the 1 , O devices are banked in, and the 
character Rom is not accessible (this 
is the normal state of affairs). When 
the line is set to 0. the character Rom 
is banked in. and the I/O devices out 
(the processor only needs to access the 
Rom when downloading the character 
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FIGURE 3 

memory configurations available, a 
little more technical information is 
required. If you look at Figure 3 again. 
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NOTE: 1 " OUTPUT 0 - INPUT 
FIGURE 4 

youH notice CHAREN, LORAM and 
WHAM. For those of you who don't 
know what these words mean here's 
an explanation: 

CHAREN, which as you can see is 
controlled by bit 2, can be thought of 
as short for Character generator. Its 
sole purpose is to either bank in or 
bank out the 4K of character Rom. 
As far as your processor is concerned, 
the character generator sits at the same 
address space as the input/ output 
devices. When the line is set to a I. 



set into Ram). The Charen line can 
be overidden by certain other control 
lines in other memory configurations. 
HIRAM is controlled by bit I, and 
controls the operation of the Kernal 
Rom. If the line is set with a I, the 
Kernal Rom appears in the processor 
space. By setting the line to 0. we can 
access the Ram underneath. This is an 
ideal place lor storing screen data or 
music data. 

LORAM controls the area of memory 
containing the Basic Rom. Set the line 
to I, and you have access to the Rom. 
Set the line to 0, and you bank out 
the Rom and gain access to the Ram. 
Once again, this is an ideal place for 
storing data or text. Quickly referring 
back to Figure 1 again, youH sec that 
there are a total of three of these 
'Shadow Ram* areas. If we write or 
poke to the Rom, the values we're 
writing will be stored in these Shadow 
Ram areas. If we read or peek 
however, the values returned are the 



Rom values, and not the Shadow Ram 
ones. 

I've mentioned the Input/Output 
devices. So just what are they? If you 
look at Figure 5, this gives you the 
breakdown of the 4K of memory from 
SD000-SDFFF, which is the I/O area. 

As I said before, there are eight 
different memory configurations. But 
what they are best suited for, and how 
do you set them up? Figure 6 shows 
the table of the first four bits of the 
6510 processor line remember that 
this is location $0001, and remember 
also what values are stored there to 
get each map. 
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FIGURE 6 

Map I gives you the default setting. 
In this setting you have Basic 2.0, and 
38K of user Ram. Map 2 allows you 
60K of Ram. and the I/O devices. 
However, the user will have to write 
hiw own driver routines for any input , 
output operations. 

Map 3 is rather an interesting one. 
You are provided with the I/O devices, 
Kernal Rom and 52K of Ram. This 
set-up is best suited for CP/M 
operations. Map 4 allows for all 64K 
of Ram. However, for any input, 
output activity, the Rom at SD000- 
SDFFF must be banked in again. Map 
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5 is the standard configuration when 
using an expansion cartridge, and it's 
ideal also for writing your own 
extensions to Basic. 

Map 6 gives us 40K of Ram, plus 
an extra 8K of plug-in Rom for 
applications that don't require Basic. 
Map 7 allows us 32K of user Ram and 
I6K of plug-in Rom. Once again, this 
is ideal for applications that don't 
require the use of Basic. Finally, Map 
8 is what's known as the 'Ultimax 
Video Game' map (lVe never actually 
come across this set-up). 



That more or less concludes our 
tour around memory - I hope that 
things are a little clearer by now. Try 
experimenting yourselves (you won't 
harm the computer - lock it up if you 
need to). There follows a short 
example of putting some of this 
knowledge into use. Suppose youVe 
written a short extended basic 
program. Underneath Basic Rom, you 
will probably have put some of the 
essential data (data for F-key 
redifinition). 

However, at some stage youH want 



to read the directory of a disk. To do 

this you will need the Rom banked 

in. Therefore, your coding may look 

something similar to this:- 

LDA $01 

ORA I SOI 

ST A SOI 

read directory 

LDA $01 

AND * SFE 

ST A $01 

return 

This is only a very simplified example 
- Ill leave the rest to your imagination. 
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Can you really use a C128 for desk-top publishing? 
Gordon Davis investigates News Maker 128 



DTP programs for the CI 28 are 
uncommon animals. This 
means that the 128 is not the 
prime choice for a prospective pub- 
lisher anyone with serious magazine 
requirements will look at a Mac, or 
at least an Amiga. There must be a 
fair number of C128 owners, however, 
who would welcome the chance to try 
their hands at DTP, particularly when 
it comes to producing small newslet- 
ters and things of that sort. 

News Maker 1 28 seems to be aimed 
at this sort of market area. It's 
produced by Free Spirit, a Californian 
software house which also turned out 
Sketchpad 128, a graphics package 
which is also compatible with News 
Maker. Like Sketchpad, News Maker 
is written in Basic 8. This is an 
advanced, graphics-orientated Basic 
for the CI 28 published by Walrusoft 
last year. 

Hardware requirements 

Again like Sketchpad, News Maker 
requires the use of a Commodore 1351 
mouse or a similar type, so purchasers 
will have to lake this into account as 
a possible hidden cost. Apart from 
this, it will work with a standard 
CI28D, but CI28 owners will have to 
have the 64K Video Ram chips 
installed. 

To those unfamiliar with DTP, this 
is basically a matter of page layout. 
Like most such packages. News Maker 
will allow you to place both text and 
graphics in a multi-column format on 
an image of a printed page. Five preset 
page formats are supported. The 
standard one is three columns with a 
header area which spreads all the way 
across the page. This is where you 
would put the title of your publication. 



plus possibly a major headline. Two, 
four column and other layouts arc also 
available. 



Written words 

Before you can get started knocking 
out your page, youU need raw mate- 
rial. Text can be produced for the 
program by using an associated pack- 
age on the same disk called Note Pad. 
Note Pad is a base-level wordprocessor 
with almost no features to speak of. 

It would have been helpful if Free 
Spirit had specified alternative word- 
processors whose files were compatible 
with News Maker. I'm sure there are 
some, but users will have to figure that 
out for themselves. 

Once your text files have been 
prepared, you can 'pour' them into the 
columns in News Maker. This simply 
makes the text conform to a given 
rectangular area. Of course, some 
control over text size and style is 
essential to any DTP package, and 
News Maker is no exception. A 
number of fonts are available on disk, 
and text can be displayed in any of 
these over a number of different 
typesizes. 

Is it art? 

The other essential element we need 
on a page is graphics. The manual is 
more forthcoming about this. Art can 
be imported into News Maker from 
any other Basic 8 or graphics package. 
In practice, this cuts the possibilities 
down a lot, since the only two 1 can 
think of are Sketchpad 128, Free 
Spirit's own, and the Graphics demo 
on the Basic 8 program disk itself. 
Be that as it may, Clip art, known 



by the program as a 'brush' file, can 
be loaded from disk and dumped into 
a rectangular area, just like text. Of 
course, that isn't quite enough to 
produce a professional-looking page. 
The user will need to modify the 
graphics and add extra elements such 
as lines and blocks to the screen. 

Modifications to the pictures are 
quite basic. They can be reversed, 
flipped or mirrored, besides of course 
being cropped for size. Besides this, 
you can also use art tools to draw lines, 
boxes and circles wherever you wish 
on the screen. 

The thickness of any of these in 
pixels can also be specified, and can 
be anything from one to nine. You can 
also draw graphics freehand, although 
I would not especially recommend this. 
A useful zoom feature also allows you 
to adjust individual pixels, and need- 
less to say you can also erase areas 
of the page. 

That's about the size of it. News 
Maker is not the most cosmic program 
I've ever seen, but it doesn't have much 
competition in its area. Provided you 
don't want to do anything too 
advanced, it may well meet your needs, 
particularly for small requirements like 
newsletters. 

But beware of hidden costs. Besides 
the 1351 mouse, plus video Ram for 
CI28, as opposed to CI28D users, you 
will really need a copy of Sketchpad 
128, from the same authors. News 
Maker, by the way, suffers from the 
same unappealing documentation as 
the other program. 

Touchline: 

Title: News Maker 128. Supplier: 
FSSL, 18 High Street, Pershore, 
Worcestershire. WRW /BO*. Tel: 
(0386)553153. Price: £34.95. 
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Tech 
Trouble s 

A crop of problems from the post bag ably answered by 
our agony uncle, Andy Andros 




I've been thinking of getting a 
printer for my C128D but all this 
talk about RS232. Centronics and 
serial interfaces totally confuses me. 
Can you tell me what the differences 
are and why Centronics interfaces 
seem to be either very cheap or 
incredibly expensive? 
Sid Knowles, Bodmin, Cornwall 



Dear Sid, 

It's no wonder you're confused, 
because I could write a hefty tome 
about printers and interfaces. 
Basically, there are three types of 
printers available for the C128 and the 
other eight bit Commodore machines. 
Since you are asking about interfaces. 
I will presume that you've decided that 



the Commodore printers don't fit your 
needs. This means we are left with 
Centronics and RS232 machines. 

All types of printers do roughly the 
same job, it's just the extra facilities 
that differ from manufacturer to 
manufacturer and the way in which 
the information is passed from the 
computer to the printer. RS232 and 
Centronics are the names of two 
different methods of transmittingdata. 

RS232 is a general purpose 
interface which is designed so that the 
computer can send and receive data. 
This interface is used for applications 
such as modem Unking and peripheral 
control systems. A printer falls into 
this latter category but in my opinion 
an RS232 link is wasted on most 
printers. A printer doesn't need sophis- 
ticated communications because its 
vocabulary only consists of feed me 
some data and busy please wait. My 
main criticism of RS232 is that the 
computer will need an RS232 interface 
plus driver software. The software is 
the real problem because although 
many commercial software packages 
contain an RS232 driver, an awful lot 
don't and it is usually impossible to 
patch your own driver into the system 
because of software protection tricks. 

The driver program serves two 
purposes. Firstly, it sets up the correct 
communications link (protocol) so 
that the printer receives the data in 
a particular form. Secondly, it acts as 
a translator because Commodore 
don't use standard ASCII characters 
but printers do (except Commodore's 
own, of course). You may have used 
Commodore's ASCII codes, these are 
the numbers allocated to letters, 
number characters and the graphics 
shapes that are produced using the 
SHIFT and CBM keys. For example, 
when the Commodore is in the mode 
that allows upper and lower case 
together, a lower case 'a' is allocated 
the decimal value of 65 and a capital 
'A' is CHRS 97. In true ASCII the 
opposite rule applies and 'A* is 65 but 
'a' is 97. This is only one of the 
problems and when the graphics 
characters are considered the situation 
becomes extremely complicated. 

My advice is to forget about RS232 
and concentrate on Centronics 
interfacing because the majority of 
manufacturers favour this system and 
interfacing is much simpler. 

A basic Centronics interface 
consists of a lead which connects 
directly into the printer from the 
computer's user port. Once again a 
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translation program is needed and this 
carries the same warning that I gave 
about RS232 drivers - it won't work 
in every situation. As you correctly 
point out. the price range can be 
confusing until you realise that 
Centronics interfaces come in two 
forms: the basic lead that costs around 
£10 including software, and the 
Centronics interface modules that start 
around £30 but can cost as much as 
£80 plus. 

The interface module has several 
advantages but the main one is that 
it connects to the serial port, leaving 
the user port free for other 
applications. The reason that this is 
possible is that the module docs the 
job of translating Commodore ASCII 
into standard ASCII and that means 
that driver software is unnecessary. 
Many interfaces can be switched so 
that the computer thinks that it is 
feeding a Commodore printer while 
the printer thinks it's found its perfect 
partner. Consequently, the interface 
will work with any software and, when 
the user has mastered the use of the 
printer in this mode, the interface can 
be switched to allow access to any 
advanced features which the printer 
may possess. 

In a nutshell, a Centronics printer 
with an interface module is the perfect 
combination for use with the CI28, 
C64, C16 or Plus 4. It may not even 
add to the cost of the printer because 
some manufacturers include an 
integral interface into the cost of the 
machine but this may mean buying a 
new interface when upgrading the 
computer in the future. The risk is 
whether the interlaces will still be 
available when upgrade time arrives! 

If I was forced to express a printer 
preference it would be a Citizen I20D 
(around £160) or a Star Micronics 
LCIO (around £199) which both have 
a Commodore interface option. Since 
I have an unquenchable distrust of 
hardware availability, I would go for 
the Centronics versions of these 
machines and add an interface to the 
cost (call it insurance money, if you 
like!). At the bottom end of the range 
there is the Super-G interface (around 
£35) but the Rolls Rovce is the Super 
Craphix Gold interface (£99.95) with 
a 32K buffer and graphics facilities 
which make it worth every penny. 




I've recently bought a 1541C disk 
drive but I cant seem to get the 
save and replace command to 
work. My wordprocessor seems to 
save and replace alright but for some 
reason whenever I try to do it from 
Basic it fails. I'm a complete beginner 
and I want to check that it's not my 
fault before I return it for repair. 
Ken Curtis. Ripon, N Yorks 

Dear Ken, 

I hesitate to say this but I think the 
fault lies in your syntax. What you 
should be typing in is: 

SAVE'*@0:progname",8 

Please check it carefully and let me 
know if it works before doing anything 
hasty! 

As a beginner, you may not be 
aware that this command should come 
with a Government Health Warning. 
The 1541 is a reasonably good drive 
but it does have some bad habits where 
save and replace is concerned. There 
appears to be a very nasty bug which 
snarls up the system occasionally when 
this command is executed. The result 
is that the newly saved program will 
load back with no problems but it may 
have overwritten part of an existing 
program on the disk. To avoid this 
I prefer to scratch the program using 
O P E N 1 5 , 8 , 1 5 : P R I N T #1 5 , 
"S0:progname": CLOSE15. Then the 
program in the computer can be saved 
with the normal SAVE command. 




Igot a copy of Activision's Music 
Studio as a Christmas present but 
it won't load. Every time I try it 
crashes out. 1 have tried taking it back 
to the shop but the man there tried 
it on their ( 64 and it worked perfectly. 
He said my cassette recorder must be 
faulty so I went baek home and 
borrowed a friend's but it still wouldn't 
load even though it loaded on his 
alright. Is there something wrong with 
my computer? 

Vera Mitchell, Billingham, Cleveland 

Dear Vera, 

No, if your computer loads everything 
else without any problems then there 
can only be one problem you've got 
an old C64. 



During its lifetime the Commodore 
64 has gone through several changes 
and the earliest Commodore machines 
sometimes show this kind of 
incompatibility. I'm afraid that there 
is no easy answer to your problem and 
all 1 can suggest is that you lake this 
reply to the 'man in the shop' and see 
if you can get your money refunded. 
If not. send the whole package back 
to Activision by recorded delivery and 
I'm sure they'll replace it or refund 
your money - they're quite helpful like- 
that. Incidentally, the address on the 
packaging is probably out of date. 
Their current address is Activision 
(UK) Ltd. Blake House, Manor Farm 
Road, Reading. Berks RG2 OJN 




I've just bought an Amiga and I 
got Defender of the Crown he- 
cause my friend has it on his C64 
and 1 like playing it. Was I disappoin- 
ted! Apart from the superb graphics, 
the game seems worse than the C64 
version! How is this possible? Some- 
limes 1 leave some men a( my home 
castle and when I return I find they've 
been breeding like rabbits while I was 
away. The C64 soldiers don't seem to 
be as randy! Why? 
Trevor Jones, Stratford, London 

Dear Trevor. 

Come off it the Amiga version is 
still pretty good. I think you're being 
a little hasty with your comments but 
1 must confess that there are a few bugs 
(sorry Cinemaware, I mean additional 
features) in the Amiga version which 
cause the problem that you've 
outlined. The reason this is different 
from the C64 version is that the 
programmers only realised that there 
was a problem after the game was 
released. At that time the C64 version 
was still in the pipeline and could be 
'fixed' before release. 



If you have a problem let us know an J 
Andy will try to help. Write to: Tech 
Troubles, Your Commodore, / 
Golden Square, London IV I R 3 A B. 
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Menus are often characterised 
by lots of 'S' and Q* 
symbols, and lashings of 
text. A simpl^subroutine can dish out 
the options without fuss. 

A menu page consists of a title and 
a list of options, with some form of 
selection system. This subroutine 
menu displays any title and up to ten 
options, which can be selected by 
moving a highlighting bar up and 
down the screen and then pressing the 
RETURN key. Each directory entry 
can have up to 39 characters, and 
everything is beautifully centred on the 
screen. 

The finished routine is not a fine 
example of variable usage because all 
of the assigned letters are the same, 
'Z\ This is done to assist with the 
writing of the master program - as long 
as variables starting with Z are 
avoided, the programmer is free to use 
any variables without regard to any 
library routines that are to be 
employed. Debugging is thereby 
simplified, because the subroutines all 
work perfectly, and any faults must 
therefore lie in the master program. 

Starters For Ten 

The subroutine needs certain variables 
passing to.it so that it can work 
properly. The menu title is assigned 
to ZS, and up to ten options of less 
than 40 characters are each assigned 
to the array Z$(x), where x is the 
option number. The total number of 
options is stored as variable Z. 
Limiting the options to a maximum 
of ten means that a DIM command 
isn't necessary. 

The first line of the subroutine 
calculates the length of the title, and 
then checks for valid values of ZS and 
Z. After the calling program is 
complete, this IF.. THEN trap can be 
erased. 

600SO Ze-LENC2S3 : IFZ-aORZE>'iOTH 
ENSTOP 

The screen is then cleared by the 
next line, and the title centred by 
calculating the number of spaces to be 
left (ZZ). Once this has been done, the 
text can usually be easily printed on 
the screen. The only exception occurs 
when the title occupies all 40 character 
spaces, because the next program line, 
which underlines the title, would be 
forced to print one line lower than 
desired. To avoid this, the PRINT 
statement is terminated with a semi- 
colon, and an extra PRINT command 



is only executed if the title is less than 
40 characters long. 

B005S PRINT-CCLR]":ZZ-CH0-Zej/2 
:PRINTSPCCZZ)ZS : : IFZS<40T 
HENPRINT 

Using the ZZ value which was set 
for positioning the title, an underline 
character is printed to the same length 
as, and in a similar way to, the title. 

60060 PRINTSPCCZZ) ; : F0RZ1-1T0LE 
NCZ53 : PRINT "CSED " ; j NEXT: I 
FZE<10THENPRINT 

The bottom of the screen carries 
the instructions for using the menu. 
After the cursor is positioned at a point 
three lines from the bottom of the 
screen, the message is printed in reverse 
characters to make it stand out. 

60065 PRINT"CH0ME.DQUINe2,CP40D" 

60070 PRINT-CRUS0N3 HIGHLIGHT ft 
NY OPTION WITH THE CRSR K 
EY "; 

60075 PRINT" THEN USE THE <RETU 
RN> KEY TO SELECT IT";:P0 
KES023.1S0 

Without the final command, the 
whole screen would scroll up as the 
final space was printed. Poking a value 
to location 2023 fills the space without 
invoking the scroll routine. 

The Main Course 

To allow maximum flexibility, the 
number of menu options can range 
from between one and ten entries. This 
causes the problem of sensibly 
positioning the options on the screen. 
The solution is to derive the first line's 
screen position from the total number 
of options given in variable Z. 

The formula in line 60080 does this, 
and the following line then prints 
sufficient cursor downs to locale the 
cursor on the correct line. 

60030 ZZW-Z/2:ZZS-"CRIGHT19r' 
60085 PRINT"CHQnED";F0RZl-OT0ZZ 
5t : PRINT "C DOWN] " ; :NEXT 

Certain conditions have to be met 
to actually print the menu on the 
screen. All of the menu options must 
be less than 40 characters long, so a 
trap is included after the length is 
measured in line 60090. Another 
problem is centering each option on its 
line, and this is further complicated 
because of the decorative means of 
printing. 

Instead of the normal left to right 
printout, the program reveals each 
option from the centre of the screen 
outwards: 
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IS 
HIS 
THIS 



H 
THE 
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S THE □ 
IS THE OP 
IB THE OPT 
THE OPT I 
THE 
THE 



IS 
IS 
IS 



OPT 10 
OPTION 



This is achieved by applying Ihc 
MIDS command several times. Every 
time the MIDS is called, its length is 
increased by two characters, and the 
point from which the string is printed 
is pulled back by one character. 

Each option must be dealt with in 
turn, so the Zl loop is initiated, the 
string length calculated and an 
overlength trap set up. As before, the 
trap can be removed from the final 
program. 

For the MIDS process to work 
correctly each string must have an even 
number of characters. This is ensured 
by line 60095 by tricking the system 
into believing that all strings contain 
an odd number of characters. 

The spacing string which would 
place the full option title centrally on 
its line is derived from the string ZZS, 
which was set up on line 60080. 

60090 F0R21-1TDZ:ZS-"":Z2-L£NC2 
SC21)): IFZ2>39 THENSTOP 

60035 IF22/2-INTCZ2/21THENZE-22 
+1 

60100 IFZ209THENZS-LEFTSCZZS, C 
41-Z23/2J 

Line 60105 sets up a nested loop 
for spreading the option across the 
screen using MIDS. 

60105 F0RZ3-Z2T01STEP-2 
60110 PRINT"CUP3"ZSiLEFTS(2ZS,Z 
3/2) i 

60115 PRINTmDS(2SC21J,23/2*.5 1 

Z2-Z3+1 ) : NEXT 
601E0 I FZIOZTHENPRINT : PRINT 
60125 ZSC21J-ZS*ZSCZ1) (NEXT 

Before taking the next option's text 
via the outer loop, line 60125 modifies 
ZS(ZI) for use in the option selection 
process which is to follow. 

When all of the options have been 
displayed and processed, ZZS is first 
modified and used to determine where 
the first menu option is located on the 
screen. The option is then reversed out, 
or highlighted, to indicate the cursor's 
starting position. 

60130 ZZS- "C HOME .D0UN21]" 
60135 Zl-l:PRINT"CRUSON]"LEFTSC 
ZZS,ZZ*+2»Z1)ZSC15 

The Final Course 

Now the program gets down to the 
main selection routines by detecting a 
cursor up or down input from the 
keyboard and jumping to the relevant 
subroutine. If RETURN is pressed, the 



current value Zl is passed to variable 
Z and control returns to the main 
program. 

60140 GETZ1S: I FZ1«-"CUP3 "THENGO 

SUBBO1B0 
6014S IF21S-"CD0UN3"THENB0SUBS0 
ISO 

60150 IFZ1S-CHR*C13DTHENZ-21:RE 

TURN 
60155 Q0T060140 

The only thing that the cursor up 
subroutine needs to look out for is 
when it reaches the topmost option. 
In this case, the value of Zl is increased 
to equal the last option's value. 
Otherwise the current line is de- 
highlighted and the line above it is 
highlighted. 

60160 PRINTLEFTS(2ZS.Z2it+2-Zl)Z 

sczn 

60165 21-21-1: IFZ1-0THENZ1-Z 
60170 PRINT"CRU50N]"LEFTSCZZS.Z 

Z'i+2-Zl JZSCZ1J 
6017S RETURN 



Similarly, the cursor down routine 
acts as would be expected, unless it 
is on the last menu entry from which 
it cycles up to the first option again. 



60180 PRINTLEFTSCZZS,ZZ'-i+2-ZlD2 
■(213 

601B5 21-21+1: IFZ1-Z-1THENZ1-1 
50190 PRINT"CRUS0Na"LEFT5C2ZS,Z 

zv- 2-znzsezii 

50195 RETURN 



A full implementation of this 
subroutine can be found at the end 
of this article. 



Paramctt 


irs for Main Program 


Sending: 




Z$ 


Menu title 


Z 


Number of options 


Z$(x) 


Option text 


Returns: 




Z 


Number of selected option 


Other Variables Used 


Z 


Number of options/ selected 




option 


Zl 


Loop variable/ option 




number 


Z2 


Option length 


Z3 


Nested loop variable 


// 


Title length 


zz% 


Positioning of first menu 




option 


zs 


Title/ option centring pad 


ZZS 


Cursor placement 


ZS(x) 


Option text /text plus ZS 




padding 



PROGRAM; riENU SUBROUTINE 

3C 1 ZS-"THE MAIN TITLE CAN BE 

40 CHARACTERS LONG" 
6B 2 Z-10 

C2 3 ZSC1)-"FIRST PlENU ENTRY" 
E4 4 ZSC2)-"THE NEXT PlENU ENTRY 

B4 5 ZSC3J-"THE THIRD HENU ENTR 

Y" 

79 6 Z$(4)-"riENU OPTION FOUR" 
E9 7 ZStSWNUPIERQ FIUE" 

7F B 25(63-"SIXTH" 

42 9 2SC7)-"DPTIDN 7 USES THE PI 

AX I MUM 39 CHARACTERS " 
3C 10 2SCBO-"THEtSSPClEIGHTHCSS 

PCinENUtSSPCJENTRY" 
11 11 2SC9J-"YET ANOTHER OPTION 

M 

3G 12 25C10i-"AT LAST' NUMBER 1 
0" 

B3 13 G0SUBB0050 

4C 14 PRINT'TCLR J " : I F2-7THENPRI 
NT "ONLY GREEDY PEDPLE SELECT 
0PT10N"2:G0T016 

91 15 PRINT "AH I OPTION NUMBER"2 
■cleft:. A WISE CHOICE." 

90 1G END 

5B 600S0 22-LENC2S3 : IFZ-00RZ2>4 

OTHENSTOP 
IF 60055 PRINT"CCLRl":ZZ-(40-22 

)/2:PRINTSPCCZZJ2S; : IF22<40T 

HENPRINT 
Dl 600G0 PR INTSPCC22} ; :F0RZ1-1T 

OLEN(2S?:PRINT"rSE3" ; : NEXT; I 

F22<40THENPRINT 
C4 600S5 PRINT'THOME, DOUN22 , CP4 

03"; 

8D 60070 PRINT"lRUSOND HIGHLIGH 
T ANY OPTION WITH THE CRSR K 
EY "; 

EE 60075 PRINT" THEN USE THE <R 
ETURN> KEY TO SELECT IT";:P0 
KE2023,160 

F3 600B0 2Z*-7-Z/2:Z2S-"rRIGHTl 
01 " 

E5 600BS PRlNT"tHQnEJ";F0R21-0T 
022'-t: PRINT "[DOWN]"; :NEXT 

CE 60090 F0RZl-lT02:2S-"";22-LE 
NCZSCZIJJ : IF22>39THENST0P 

BA 60095 IF22/2-INTCZ2/25THENZ2 
-Z2+1 

B4 60100 IFZ2<39THEN2S-LEFTSCZ2 

S, C41-22J/2) 
1C G0105 F0R23-22TQ15TEP-2 
BB 60110 PRINT"tUP]"25iLEFTSCZZ 

S, 23/21; 

29 G011S PRINTrUDSC2SC2n,23/2+ 

.S,22-Z3*1):NEXT 
51 60120 IF2l<>2THENPRINT;PRINT 

C5 50125 ZS(Z13-ZS+2BC21J;NEXT 
CB G0130 2ZS-"LH0nE,D0WN2ir' 
7F 60135 Z1-1:PRINT"IRUS0N1"LEF 

TSCZZS,ZZ!l*2»Zl J2SC13 
BB 60140 GET21S: IFZlS-TUPl "THE 

NG0SUB60160 
EB G014S IFZ1S-"[D0WN3"THENGDSU 

B60180 

7E 60150 IF21S-CHRSC131THEN2-21 

: RETURN 
27 G0155 G0T060140 
A5 G01G0 PRINTLEFTSCZZS,ZZ*+2-Z 
l)ZS(Zl) 

7E 60165 21-21-1: IFZ1-0THENZ1-2 

3D 60170 PRINT'^RUSONtTLEFTSCZZ 

$,22*+2 - 21>ZSCZl) 
74 60175 RETURN 

C9 G01B0 PRINTLEFTStZZS t ZZ*+2»Z 
132SCZ13 

3D 601B5 Zl-Zl-1 : IFZ1-Z+1THENZ1 
-1 

49 60190 PRINT^CRugONVLEFTStZZ 
S,ZZ*+2»Z1)ZS£Z1) 

80 60195 RETURN 
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Multi - Pre cision 
Arithmetic 




This new maths program 
will enable you to deal with 
much larger numbers than 
is normally possible on the 
Commodore 64 



The CBM64 has a limited ability 
to deal with large numbers 
accurately. Precise accuracy is 
only possible with integer arithmetic, 
and the '64 can only cope with numbers 
up to 32768 in integer mode. This is 
not a large number - for example it 
couldn't add up the number of people 
in most small towns, or cope with the 



number of pennies in my meagre 
salary. 

Larger numbers can be dealt with 
in scientific notation, but still only up 
to 10 A 32, and such numbers are not 
always completely accurate. Absolute 
accuracy with large numbers is needed, 
for example in pure mathematics, to 
determine if a number is a prime 
number. Very large prime numbers are 
the basis of important computercipher 
systems (eg the Rivest-Shamir- 
Adelman system), which can be used 
to send confidential information on 
computer networks etc. It would 
therefore be useful to have the ability 
to work with large numbers without 
loss of accuracy. 



This program allows the CBM 64 
to perform multi-precision arithmetic 
with up to 8190 digits. This should 
allow calculation of any practical 
application, since it exceeds the total 
number of atoms in the known 
universe by quite a substantial margin. 
The ability to work with very large 
numbers can also be useful in pure 
mathematics and cryptography. The 
use of the program itself is very simple. 
The program acts as a calculator with 
three registers or memories, which can 
perform multi-precision addition, 
subtraction, multiplication and 
division. The routines can be used 
either in direct mode or within a 
BASIC program. 

The registers are referred to as A 
for accumulator, and X and Y for the 
subsidiary memories. All calculations 
involve the accumulator, which will 
hold the result of the calculation. The 
X and Y registers are identical in their 
functions, and can be used in any 
calculation. All the calculations arc in 
Integer arithmetic, and there's no 
provision for decimal points etc. The 
routines can of course be used to 
calculate numbers with decimal points, 
but programmers must keep track of 
the position of decimal points and so 
on for themselves. 

The instructions for the calculator 
are all preceded by the ff sign (hash), 
which allows the routine to recognise 
the new instructions. The existing 
keywords which use # , eg INPUT # , 
are not affected, and can be used as 
normal. The new instructions can be 
grouped intrwhree types as follows: 

Memory Transfers 

These allow the contents of the three 
registers to be shifted around quickly 
and conveniently. Transfers involve 
copying the contents of one register 
into another. The original contents of 
the destination register are lost. The 
instructions arc ff TAX (Transfer A 
to X), ff TAY (Transfer A to Y), « TX A 
(Transfer X to A) andsTY A (Transfer 
Y to A). An exchange between 
memories involves swapping the 
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contents of the two registers without 
losing any data. The exchange 
instructions are tt EXA, »EYA AND - 
tfEXY. 

Mathematical 
Instructions 

These are the instructions that allow 
calculations to be performed between 
the A register and cither the X or Y 
register. In all cases, the X and Y 
registers are unaffected by the 
operations, and the 'he A register is 
altered to hold the result of the 
calculation. " AXA adds the X 
register to the A register (Add X to 
A), and « AYA adds the Y register to 
A. tt AAA adds the A register to A: 
ie, it doubles the A register without 
using X or Y. 

tt SXA subtracts the X register 
from A (Subtract X from A), and must 
have the A register larger than or equal 
to X or a syntax error results. "SYA 
is identical but subtracts the Y register 
from A. * MXA multiples the X and 
A registers and * MYA multiplies Y 
and A registers. If the numbers in both 
registers arc large, then the result will 
exceed the normal limit of 8190 digits. 
The A register has been made twice 
the size of the olher registers to allow 
for this. 

Multiplying two registers together 
will still give a valid result, even if both 
are set at the maximum number of 
digits, and the resulting number will 
be up to 16380 digits long. However, 
any further manipulation of the 
number is liable to produce errors. 
Subtraction will give correct results 
but addition, multiplication and even 
division may produce errors. 
Obviously transfers and exchanges 
with the other smaller registers are 
invalid, but are not flagged us errors. 

tt MAT (Multiply A by Ten) 
multiplies the A register by ten without 
using X or Y registers. * DXA divides 
X into A. The remainder from the 
integer division is left in the A register, 
and (he result of the division is in a 
temporary register, and ca i be 
swapped into A by * ETA (Exchange 
Temp and A), tt DYA is similar for 
the Y register. 

* CXA compares the X and A 
registers and alters address 2 as 
follows: 

A=X PEEK(2) returns 0 

A>X PEEK(2) returns I 

A<X PEEK(2) returns 255 (-1 in 2's 

complement binary arithmetic) 

The number should be read 
immediately, as several routines in the 



calculator use address 2 for temporary 
data storage. # CYA is again similar. 

tt INX increments the X register 
by 1 without affecting Y or A. There 
is no * INY instruction: incrementing 
is only done on the X register. The 
incremental value is stored in RAM 
at SC867 (51303), and can be altered 
if required to any valid BCD number, 
but once changed it will remain at the 
new increment value till deliberately 
reset. Invalid BCD numbers will cause 
erroneous results. 

To convert a normal two digit 
decimal into BCD format, the first 
digit is multiplied by 16 and added to 
the second digit: eg, 27 becomes 
2*16*7 (39), simply POKE'ing 27 into 
SC867 is NOT valid as 27 does not 
correspond to any BCD number. 

Input Output Instructions 

"IN inputs a number from the 
keyboard. Only the numeral keys and 
the delete key will affect the displayed 
number, and pressing the return key 
will terminate the input. Numbers of 
up to 8190 digits can be entered if 
required, (nb there is no flashingcursor 
in the routine). 

tt SIA (Siring Into A) enters a 
string of numbers into the A register. 

tt SIA is followed bv a string in 
brackets eg SIA ("123456789*% or 

flSIA(STR$ (99*7+3 2)), the string 
must be an integer, but can be in 
exponential format eg 2.345EI2, but 
must be normalised to only one figure 
before the decimal point. The string 
is restricted by the usual BASIC string 
limitations. String variables arc not 
suitable for this routine, and may give 
spurious answers. 

tt PR A (Print A register) simply 
prints the A register to any active 
device: eg, screen or printer. Because 
the numbers are stored in pairs - two 
decimal digits per byte - the print 
routine will always print an even 
number of digits. If the number of 
digits in a number is odd, then a 
leading 0 will be printed so 123 will 
print as 0123. 

HKPD and tt KPT save (Keep) 
the contents of the A register to Disc 
or Tape respectively. Both require a 
name for the file to be saved: eg, 

tt KPD"GOOGOL". tt LDD and 

tt LDT reload a previously saved 
number back into the A register. The 
routine needs the name of the file to 
be reloaded: eg, tt LDD"GOOGOL". 

The mathematical routines are 
accurate but somewhat slow, as they 
use decimal rather than binary 



arithmetic. The A register occupies the 
8k of memory from 32768 to 40959 
(S8000-S9FFF), and can be PEEK'd 
from Basic. This register is twice the 
size of the X and Y registers as 
mentioned earlier, and if the A register 
exceeds 8190, digits then transfers and 
exchanges will not give valid results. 

The size of the number in the A 
register is identified as an "offset' by 
the values held in S2AB and S2AC 
(681, 682), and can be read using: 
( PEEK(68 1 )+PEEK(682)*256)*2+2 

This will always give an even 
number of digits, so even if a single 
digit number is held, the expression 
will give the answer 2. Also 0 is 
considered a single digit number, and 
will return an answer of 2. The X and 
Y registers are stored under the BASIC 
ROM. and are not directly accessible 
to BASIC programs, the temporary 
register mentioned in the divide 
routine can be used for extra storage, 
but the contents of this register are 
affected by both multiplication and 
division routines. 

The BCD (Binary Coded Digit) 
format is not often used in CBM64 
programs, since compared to binary 
it is wasteful of memory. The BCD 
format stores two decimal digits in 
each byte of memory, so a single byte 
can represent numbers from 0 to 99 
(binary can store from 0 to 255 in a 
single byte). 

In BCD. each half of the byte 
represents one digit. 

Bit no 7 6 5 4 3 2 10 
HIGH LOW 
DIGIT DIGIT 

Each half byte is called a nibble 
(and whoever thought up that pun of 
a name should be shot), and the 
number in each nibble is represented 
by normal binary arithmetic:- 

1 =0001 

2 = 0010 

3 = 0011 

4 = 0100 

5 = 0101 

6 = 0110 

7 = 0111 

8 = 1000 
9= 1001 

The binary patterns 1010, 1011, 
1100. 1 101, 1 1 10 and I II I are not 
allowed in BCD, and will generate 
errors if allowed to creep into BCD 
calculations. Ten in binary is 
00001010. but in BCD is 00010000. and 
the bit pattern 000 1 0000 is 16 in binary. 
So if you're trying to directly interpret,' 
alter numbers, you must take care to 
use the BCD system. 
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80 
Column 
Software 



How to get the most out of your 80 column chip 



D. Kelsey 



The C 1 28 has been provided with 
an 80 column chip, but it has 
several facilities that aren't 
catered for by the operating system of 
the C128. There's a large amount of 
text available about the internal 
workings of this chip, and a brief 
description follows. 

The 80 column chip has access to 
16k of memory. This is expandable to 
64k, and there are kits available that 
do this. It isn't possible to directly 
access this memory, as the 6502 
processor can't actually 'see' it., so how 
is it accessed? Two memory locations 
are provided that communicate with 
the chip. One memory location 
contains a register number which is in 
the chip, and the other gives the 
contents. 

Using this method, a register within 
the chip can be examined or changed. 
The registers provide different 
facilities, one of which is address 
selection of the 16k available, which 
then allows memory locations in the 
16k to be read or modified. I won't 
go into how to access the registers. 

The 80 column chip is capable of 
all sorts of interesting things. It can 
change the dimensions of the screen, 



give you 28 lines by 80 columns (if 
you want, that) a light pen can be used 
on the 80 column screen, user defined 
characters are possible, and smooth 
vertical and horizontal scroll is also 
available. Many other strange 
functions can be done, but the most 
useful one and the one that will be 
discussed here is the ability to display 
high-resolution graphics. 

Hir-res is possible on 80 columns, 
but if you only have 16k, there are 
some limitations. It isn't easy to show 
if you only have 16k available, but on 
the whole, if you haven't had an 
upgrade then you only have 1 6k on 
the CI 28. I gather that some very early 
versions of the CI 28 did actually have 
64k. 

These limitations are to do with the 
fact that to have both hi-res and colour 
of dimension 640x200 (which is the 
standard hi-res output for the 80 
column chip, although it should be 
possible to increase this) requires more 
than 16k. To get around this, the 
screen size was reduced to allow colour 
and hi-res. The new dimensions were 
640x176. If you display graphics in 
monochrome mode, then a full 
640x200 can be displayed, as there is 



no memory used for colour. 

The programs presented here are 
concerned only with the facilities of 
hi-res, and a couple of useful text 
control options. The first program 
deals with manipulating the screen, 
and the second is a screen dump 
program that contains several special 
options to control how the screen is 
output. 

Where the program 
resides 

This package is stored at SF200 
SFDF4. It will run in cither bank 0 
or bank I . When loading this package, 
you should specify the bank. Although 
it should be possible to use this 
program with other languages, you 
may have to relocate the software 
using a relocation program. The one 
limitation is that it cannot be stored 
in address range SDO00 - SDFFF. 

It's possible for Basic to overwrite 
the code to stop this you have to 
set up certain pointers: 

Loading in Bank 0 

BANK 0:BLOAD "80COL.OBJ" 
POKE4627.244:NEW 
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Loading in Bank 1 

BANK I:BLOAD"80COL.OBJ" 
POKE 54,244:POKE 58,244:CLR 
The pokes al the end are used lo stop 
Basic from overwriting the code 
stored. This last step won't be 
necessary unless you have a very large 
Basic program, or use a large amount 
of variables, however it's a good idea 
lo do this just in case. 

User Guide 

There has been no wedge supplied to 
include extra Basic commands for 
these roulines, but you may consider 
using the label-linker featured in the 
March '88 edition of Your 
Commodore to set up module 
subroutines and allow easy access to 
these routines from Basic. 

The following routines are 
provided - a description followed by 
a BASIC and machine code call will 
be given. Make sure you're in the 
appropriate bank before trying to call 
the routine. 

1. Poke80 

Description: provides the facility to 
poke to the 80 column memory 



BASIC: 

SYS DEC ("F206"), CO. INT(AD), 
256, AD-INT (AD/256)*256 
where 

AD = Address 

range 0.. 16383 for 16k 

range O..65535 for 64k 

CO = contents to be stored 

M/C: 

LDX address hi 
LDY address low 
LDA data 
JSR SF206 

2. PeekSO 

Description: provides the facility to 
peek the 80 column memory 

BASIC: 

SYS DEC ("F206")„ INT (AD)/ 256, 

AD-INT (AD/ 256) *256: RREG CO 

AD = Address 

range as above 

CO = contents of address 

M/C: 

LDX address hi 
LDY address low 
JSR SF206 
ST A data 

3. Mode select 

Description: allows the mode of the 
80 column chip to be changed from 



text to hi-res. The following options 
are available: 

mode - 0 : display in text mode 
mode = 1 : display 640x200 hi-res in 
monochrome 

mode = 2 : display 640x176 hi-res in 
16 colours 

mode = 3 : display 640x200 hi-res in 
16 colours (64k only) 

The colour is displayed in the same 
way as hi-res on 40 columns. It's not 
possible to have a multicolour mode. 
If you have 64k and selected mode 3, 
selecting mode 0 will not clear the 
screen, ie. all the old text will be kept. 
BASIC: 

SYS DEC (**F20C"),MO 
MO = mode number (0..3) 

M/C: 

LDA mode 
JSR SF20C 

Important: MODE 3 has not been 
tested. I haven't got 64k, so I wasn't 
able to test this mode. It is provided 
purely for a convenience for people 
with 64k. 

4a Set Background Colour 

Description: will set the background 
colour in the colour specified. In Hi- 
res colour mode the background 
colour is only displayed on the border. 
The actual screen colour stays black. 
BASIC: 

SYS DEC ("F20F").CL 
CL = Colour number ( 0..I5 ) 

M/C: 

LDA colour 
JSR SF20F 

4b Set foreground Colour 

Description: will set the foreground 
colour in the colour specified. Notice 
that this will only be noticed in 
640x200 monochrome. 
BASIC: 

SYS DEC rF212"),CL 

CL = Colour number ( 0..I5 ) 

M/C: 

LDA colour 
JSRSF2I2 

5. Set point 

Description: sets a point on the hi-res 
screen 

BASIC: 

POKE 254.CL (colour hi-res only) 
SYS DEC CF2I5"), INT (X/256), X- 
INT (X/256) *256.Y 
CL = colour 

X = x co-ord range 0 639 
Y = y co-ord 

range 0 - 199 for monchrome and 
mode 3 with 64k 



range 0 - 1 75 for mode 2 

M/C: 

LDY ycoord 
LDX xcoordlow 
LDA xcoordhi 
JSR SF2I5 

6. Clear point 

Description: clears a point on the hi- 
res screen 
BASIC: 

POKE 254.CL (colour hi-res onlv) 
SYS DEC ("F4I8"), INT (X/256), X- 
I NT (X/256) *256, Y 
CL = colour 

X = x co-ord ranges as above 
Y - y co-ord ranges as above 

M/C: 

LDY ycoord 
LDX xcoordlow 
LDA xcoordhi 
JSR SF218 

6. Draw Line 

Description: draws a line from two 

specified points 

BASIC: 

POKE DEC ("F223>L INT (XI/ 
256) 

POKE DEC ("F223"), XI-INT (XI/ 
256) *256 

POKE DEC rF225"), YI 

POKE DEC rF226>l, INT (X2/ 

256) 

POKE DEC ("F226"), XI-INT (X2/ 
256) *256 

POKE DEC ("H228"). Y2 

SYS DEC ("F229", I - to clear a line 

SYS DEC rF229"), 0 - to set a line 

M/C: 

LDA Xlcoordhi 
STA SF224 
LDA Xlcoordlow 
STA SF223 
LDA Yl 
STA SF225 
LDA X2coordhi 
STA SF227 
LDA X2coordlow 
STA SF226 
LDA Y2 
STA SF228 

LDA (l=set,0=clear) 
JSR SF229 

if any specified x.y coordinates are 
invalid, ie. if they are outside the ranges 
specified, then no data will be 
displayed on the screen. 

7. Display Text 

Description: this will put text onto an 

80 column hi-res screen. 

BASIC: 

T$= M text to be displayed" 
FOR LO=I TO LEN <T$) 
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POKE DEC ("F234")+LO-l, MIDS 
(T$, LO, 1) 
NEXT LO 

POKE DEC ("F233"), LEN (T$) 

POKE DEC ("F232"), MO 

SYS DEC ("F284"), INT (X/256), X- 

INT (X/256) *256, Y 

Where 

X = X position on screen 
Y = Y position on screen 
MO = mode 
0 = Upper case 
64 = Reversed 
128 = Lower case 
192 = lower + reversed 
M/C: 

Place Text starting at SF234 

LDA length 

ST A SF233 

LDA xcoordhi 

LDX xcoordlow 

LDY ycoord 

JSR SF284 

8. Draw Box 

Description: this will draw a box on 
the screen and optionally fill it in. 
BASIC: 

POKE DEC <"F287>I, INT (XI/ 
256) 

POKE DEC CF287"). XI-INT (XI/ 
256) *256 

POKE DEC ("F289"), YI 

POKE DEC ("F28A>I, INT (X2/ 

256)*256 

POKE DEC 0^28^), Y2 
SYS DEC ("F28D"), MO, FF 
Where 

XI. Y I = top left corner 
X2, Y2 = bottom right corner of box 
MO = draw mode. I = set, 0 = clear 
FF = fill flag. I = fill box. 

M/C: 

LDA Xlcoordhi 
STA SF288 
LDA Xlcoordlow 
STA SF287 
LDA YI 
STA SF289 
LDA X2coordhi 
STA SF28B 
LDA X2coordlow 
STA SF28A 
LDA Y2 
STA SF28C 

LDA MO (same as above) 
LDX FF (same as above) 
JSR SF28D 

9. Swop Basic Screens 

Description: allows two basic screens 
to be maintained from within a 
program. Not to be used in hi-res 
mode. 



BASIC: 

SYS DEC ("F22F"). CF 
where 

CF = clear flag. I = clear screen 

M/C: 
LDA CF 
JSR SF22F 

Other routines 

1. SWOP 

This routine is similar to the BASIC 
SWOP routine, but doesn't update any 
of the Basic screen pointers. This may 
be useful for programs that don't 
utilise the screen controller in the 
operating system. The calling address 
is SF22C. Register A is used as the 
clear flag, if A=0 then the screen isn't 
cleared. A=I will clear the screen. 

2. READ/WRITE registers 

These routines allow calling of the 
registers from any BANK you are in. 
They are required for this package, and 
may be of some use to other 
programmers. 
M/C: 

LDX register number 
JSR SF200 
STA register contents 
LDX register number 
LDA value to be stored 
JSR SF203 

3. Block clear 

The 80 column chip provides a rapid 

block data store facility. This routine 

allows easy access to this. 

LDA start address hi 

STA SF210 

LDA start address low 

STA SF20F 

LDA No. of Bytes hi 

STASF2I2 

LDA No. of Bytes low 

STASF2I1 

LDA fill character 

JSR SF2I3 



Example program 

A commented demonstration program 
has been provided to give examples 
of how to use these routines. To load, 
type DLOAD "80DEMO" and run at 
your leisure. Make sure that the 80 
column package is also on the same 
disk as this program will try to load 
it. 

Ending comments 

This package provides just the basics 
for hi-res control. The chip is capable 



of many other things as well as 
described above, and if you are 
interested, a good book is the CI 28 
programmers reference guide for 
further information. 

Screen Dump program 

This program provides a screen dump 
facility for 80 columns. The first thing 
to note is that it isn't possible to fit 
a full screen on a hi-res picture onto 
a Commodore compatible printer - 
any hi-res print is actually printed 
sideways. A lest dump is printed the 
correct way. Also note that all text 
dumps will be printed in upper case 
only. 

The driver is stored at locations 
$1300 - SIA6F, and cannot really be 
located easily. To load the program, 
you tvpe in the following: 
BANK 0:BLOAD "SD80.OBJ" 

The program MUST be loaded 
into RAM 0, so BANK 0 is usually 
a good choice. The screen dump has 
variable control information so that 
different parts of the screen can be 
dumped individually. Different types 
of output are also possible. 



Information required 

The following information must be 
sent to the screen dump program 
before you start: 

1. Starting X column on the screen. 

2. Starting Y column on the screen. 

3. starting Printer column. 

4. Ending X column on the screen. 

5. Ending Y column on the screen. 

6. Control flag. 

7. screen mode. 

8. address of hi-resolution 
information. 

9. Address of colour information. 

Most of this information can be 
automatically set up using the driver 
program provided. This driver will 
also set up the correct starting and 
ending X,Y information, so that a 
whole screen is displayed. It will also 
select the correct screen mode and 
correct screen and colour addresses. 
The only information that needs to be 
set-up is the printer start column and 
the control flag. 

Printer Start Column 

The is a value from 0-79 which 
specifies how many characters from i 
the left hand margin should bel 
indented for the print, that is, it allows 
the output to offset from the left. 
Usually this value is zero. 
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To set this in Basic, BANK 0:POKE 

DEC ("1307"). PS 

Where PS = printer start column. 

Control Flag 

This allows selection of the many 
facilities that the screen dump can 
provide. It is a binary flag, and requires 
some knowledge of binary to set-up. 
128 64 32 16 8 ' 4 2 I 
X XEDCXBA 
The bits A-E affect what the screen 
dump will do. 
A. 

0 prints one dot across for every screen 
pixel 

1 refers to bit B 
B. 

0 prints two dots across for every 
screen pixel (if bit A is set) 

1 prints three dots across for every 
screen pixel 

C. 

0 prints one dot down for every screen 
pixel 

1 prints two dots down for every screen 
pixel 

D. 

0 Shade mode off 

1 Shade mode on 

E. 

0 shade background as well as 
foreground 

1 shade foreground only. 
X. 

This bit does nothing, so keep as 0. 

The actual meanings will be 
described later. 

Once you've decided which options 
you want, you can then work out the 
value by creating the bit pattern and 
then converting the number to 
decimal. 

For example. I want to print 3 dots 
across and 2 dots down, that means 
1 require A=I, B=l t C=I. this gives a 
bit pattern of 

128 64 32 16 8 4 2 I 
X XEDCXBA 
0 0 0 0 I 0 1 I 
Therefore, the number required is 
8*2+1 = 11. 

To set the control Flag. BANK 
0:POKE DEC ("130B"), CO where CO 
= control flag. In the above case: 
BANK 0:POKE DEC ("I30B"), 1 1 

Description of options 
Dots Across: you can specify up to 



three dots here. For each screen pixel, 
three dots will cither be printed/or 
skipped across the page. This has the 
effect of expanding the screen across 
the page. 

Dots Down: similar to above, but 
expands the screen down the page. 

Shading: most printers are not 
capable of printing colour, so a 
method of shading is provided to 
simulate colour. Depending on the 
colour found, a special shade is 
displayed, thus giving output more 
depth. Sometimes, it's useful not to 
include the background colour as a 
shading to be printed. The option to 
turn it on or off is available. 

One thing to note is that if you 
try to shade a full screen, it may not 
fit on your printer. You'll then have 
to reduce the size of the screen 
outputed. The screen size control is 
described later. 

The driver 

Once this information has been set up 
you can now call the driver. A flag 
is provided to say whether you want 
the full default option. If you want a 
full screen then you need to set the 
flag. In Basic, this is done by the 
command BANK 0:POKE DEC 
("1303"), I (actually, you can be in any 
bank which has access to RAM 0). To 
run the SD program, type SYS DEC 
("1 300"). 

Selecting the screen 
dimensions 

If you only want to print a portion 

of the screen, it's possible to select part 

of a screen to print. You must first 

turn off the default flag for the driver 

by typing BANK 0:POKE DEC 

("1303"), 0 (again, it can really be any 

BANK which has access to RAM 0). 

To set up the dimensions then: 

POKE DEC ("1304"), XS-INT (XS/ 

256) *256: POKE DEC ("1304")+!. 

INT (XS/256) 

POKE DEC ("1306"), YS 

POKE DEC ("1308"), XS-INT (XE/ 

256) *256: POKE DEC ("1308>l. 

INT(XE/256) 

POKE DEC(1300A"), YE 

where XS, YS is the top left hand 

corner of the screen 

XE, YE is the bottom right hand 

corner of the screen 

You have to make sure you get the 
dimensions right for the correct screen 
mode. For example, if I have a screen 
in hi-res with dimensions 640x176. 



then I may set the screen print 

dimensions to: 

XS = 50 : XE = 589 

YS = 20 : YE = 175 

a full screen has dimensions 

XS = 0 : XE = 639 

YS = 0 : YE = 199 



Defining your own screen 
addresses 

If you have a good knowledge of the 
internal workings of the 80 column 
chip, then you may want to set up your 
own screen and attribute addresses 
where the screen dump program gets 
the information. This is possible by not 
going through the driver at all. To do 
this, you have to set up the following 
addresses 

SI30E screen low address 
SI30F screen hi address 
$1310 attribute low address 
$1311 attribute hi address 

Once this and all the above 
parameters are set up, you call the 
basic dump program by BANK 0:SYS 
DEC ( tt "). 

Screen Dump Key 

The final facility is a screen dump key. 
If you want to make a copy of a screen, 
then a simple key press would be very 
useful. The screen dump key will go 
through the driver program, and the 
required parameters such as the 
control flag will need to be set. 
To activate the screen dump kev, type 
BANK 0:SYS DEC ("1312"). 
To dump a screen, press CTRL 
To deactivate this facility, type BANK 
0:SYS DEC ("1315"). 

You may like to set up a boot 
program that loads the screen dump 
program and sets the default flag on, 
printer start and control information 
and activates the screen dump key. The 
key is automatically ready for use. 

One final Note - you must be in 
a BANK which allows access to the 
address $1300 in RAM 0. In the above 
examples, BANK 0 was used to do this, 
but this isn't the only choice, for 
example, BANK 12 would work just 
as well. Also once a bank is selected 
in, it stays in that bank until changed, 
so you only have to set the bank once. 

Demo Program 

The Screen Dump key is activated 
during the running of the 
demonstration program. At any time 
you can get a screen dump, if you 
require one. 
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AutoscroU 

Perfect scrolling is possible on the 64, and this program 

proves it 
by Derek Tripp 



Some versions of Basic (though 
not, of course, the one you get 
with the C64!) offer the pro- 
grammer the facility to scroll part of 
the screen, and leave the rest perman- 
ently on display. This can be very 
useful if you want to show a table of 
results, with headings for each column 
and a set of instructions ("Prcss-any- 
key-to-halt" type of thing) at the 
bottom. 

You know damn well that if you 
try this with the C64, and the results 
occupy more than the 20-odd lines left 
on the screen, the heading will disap- 
pear off the top, and bits of the bottom 
line will stick out of one line and scroll 
up the screen with your data. So apart 
from being unable to remember what 
each column means, you're left with 
an untidy display, and the frustration 
of not remembering the instructions 
telling you how to stop the Hood of 
data! 

While we're about it, there's no 
elegant way to set up that bottom line 
and then return to the top of the table 
in the first place:- 



That's one solution, but it's a bit 
clumsv. isn't it? Again, some versions 
of basic give you a "PRINT-AT" 
command, which allows you to put a 
line of text anywhere on the screen at 
any time. 

AUTOSCROLL contains two 
short machine code routines that give 
you these missing facilities. The 
scrolling routine works just like the 
normal screen scroll, except that it 
starts when the text reaches the line 
you specify as "lower", and leaves the 
lines above the one you specify as 
"upper" where they are. You also get 
the normal facility for slowing the 
scroll by holding the "CTRL" key 
down. 

The second routine simulates the 
"PRINT-AT" command, moving the 
cursor to the specified position any- 
where on the screen. To keep things 
simple, and to minimise on the length 
of the code to be typed in, the routines 
are accessed via an "SYS" call, rather 
than bv adding new words to basic. 
AUTOSCROLL was developed 
initially for use with the data- 



formatting program "TABULATE" 
that first appeared in the April 1988 
issue of Your Commodore. 

Getting AutoscroU Into 
Your Own Programs 

There are several ways in which you 
can get this routine into your library 
of goodies, and add it as required to 
new and existing programs. Which 



PRICE TOTAL' 
COST' 



way you choose will depend on the 
number of utilities, other versions of 
Basic etc, you have, or can borrow! 

For those who have no "add-ons" 
of any kind, a Basic loader listing is 
given. There are two ways of using this 
loader. The most obvious way is to 
tack it onto the end of your own 
program, and use it as a subroutine 
called up by "GOSUB 63039". In this 
case, the "END" in line 63056 should 
be replaced by "RETURN". 

If you choose to use it this way, 
you must make sure that all DATA 
statements in your own program have 
been read before you call the loader 
up. If they haven't, it will read the 
earlier data instead of its own, and the 
resulting machine code will not be 
what was intended. In all probability, 
the first "SYS" call to one of its 
routines will send the computer into 
a lock-up state, and youH have to 
switch k off to reset it before it will 
talk to you again! 

As an alternative which avoids this 
problem you can renumber the loader 
program and put it as the first part 



of your own program. If you do it this 
way, leave out the "END" in line 
63056. and change the variable LN in 
line 63039 and the "THEN" address 
in line 63051 to suit your new num- 
bering system. 

With either method, youll have to 
type the whole thing in by hand each 
time you want to add it to an existing 
program, unless you have access to a 
"MERGE" or "APPEND" utility that 
does the job for you. For new pro- 
grams, of course, you start by loading 
AUTOSCROLL and then write your 
own program before or after it, as the 
case may be. 

You may "crunch" the loader 
program by omitting all the REM and 
spacing lines, and by the usual horrible 
trick of cramming as much onto one 
line as you can. Check-run the loader 
program at any stage as you enter it 
- it doesn't "self-destruct" as some 
loaders do! This allows you to be sure 
it's OK before you save it to disk or 
tape. However, don't try to check the 
machine code routines by the "SYS" 
call until you've saved the completed 
program! 

If you have a utility cartridge or 
anything else that gives you access to 
a machine code monitor, you may 
enter the Basic Loader just as it is 
given, run it, and then use the monitor 
to save the machine code file that's 
produced to your disk or tape. Don't 
forget to call this by a different name 
to the one you've used to save the Basic 
loader program, though! 

Those of you with an assembler will 
probably prefer to use the listing given 
in that format. In this case, you can 
relocate the routines as you wish to 
avoid clashing with any other pro- 
grams you may want to use with them. 

If you end up with a machine code 
file from using an assembler or 
monitor, you can load this from a 
suitable line in your Basic masterpiece 



10 PR1NT"[CLR HOME] ITEM NUMBER 
20 PRINT OFF EACH 

30 FOR 1=3 TO 24:PRINT"[DOWN]";:NEXT 
40 PRINT " PRESS ANY KEY TO HALT"; 
50 PRINT'[HOME][3 DOWN]"; 
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- making sure you have a copy of 
AUTOSCROLL on the same disk as 
(or if you use tape, immediately after) 
your Basic program. 

1 prefer to check to see if the 
machine code has been loaded into 
memory from either the Basic loader 
or machine code versions, with a 
PEEK or two to the area of memory 
used by the routines (see lines 310 to 
360 of the DEMO program). This 
method has the advantage that while 
you're developing your own program 
and test-running it. you only have to 
load the routines once. If you use the 
more common method of putting a line 
such as:- 

10 IF A=0 THEN A=I: LOAD "A/ 
S",8,I 

at the beginning of your program, then 
you have to wait while the machine 
code loads each time you RUN it. This 
is slow enough if it's loading from disk, 
but is even more annoying if it means 
running the Basic loader each time. 



How To Use The 
Routines 

You can use these routines in the 
"immediate' mode from the keyboard 
as well as from within Basic programs. 
The formal to set up the scrolling area 
between "upper" and "lower" lines 
(where the top line is I , and the bottom 
one 25), is:- 

SYS 52992, upper, lower 

To position the cursor on the 
desired "line" at the position "column" 
(where the left-hand margin is column 
I. and the right-hand margin column 
40), use the format:- 

SYS 53018, line, column 

To reset the computer to the 
normal scrolling mode, use:- 

SYS 53032 

So the example given before 
becomes:- 



To set up the scrolling window, we 
note that, as the header in this example 
occupies the top two lines, the scroll 
should start at line 3. We have a 
"footer" line on line 25, so the scroll 
area should end at line 24. A line such 
as> 

60"SYS 52992,3,24 
docs the trick. 



The Demonstration 
Program 

Just in case you don't happen to have 
a suitable host program around, or you 
don't fancy risking it until you've tried 
these routines out on somebody else's 
work (coward), IVe included a short 
demonstration program for you to try. 
At least, it would be short without all 
those confounded REM statements! 

This has a few optional lines (read 
the REM statements before you leave 
them out!) which allow you to use it 
with either the basic loader or a 
machine-code version. If you use the 
latter with tape, change the device 
number in the appropriate line. 



Does Autoscroll Clash 
With Other Programs? 

As presented here, the machine code 
routines occupy 251 bytes at the top 
of the free RAM area between 
addresses SCFOO to SCFFA. In addi- 
tion, they use the four spare zero page 
bvtes SO0FB to S00FE. The command 
"SYS 52992, upper, lower" brings the 
scroll routine into play by changing 
the output vector at $0326, which is 
restored by the command "SYS 
53032". 

The Basic loader uses the following 
variables:- 

A0, CS, D, LN, RC 

and line numbers 63010 (63039 if you 

leave out the REMs) to 63089, or 



whatever you renumber them to 
yourself. 



Footnotes 



1. AUTOSCROLL modifies the out- 
put vector at S0326. If you use a utility 
cartridge, especially one that offers a 
Centronics printer interface, it may 
modify this vector for its own pur- 
poses. In this case, SCROLL will 
probably work OK from within a Basic 
program, but will be taken out of play 
when the program ends and returns 
the computer to the READY state. So 
if you try OUT SYS 52992 in the 
"Immediate" mode, and nothing 
happens, disable your cartridge and try 
again. 

2. AUTOSCROLL moves the 
contents of the text RAM around and, 
as this lies just below the area where 
your Basic program sits, it's necessary 
to protect the program area from 
corruption. You'll find that if you try 
to set a line number greater than 25 
you will halt, from either the 
"SCROLL" or "PRINT AT" routines. 
YouH get the same result if you try 
to make'lower'equal to orgreater than 
'upper', or if you try to use zero or 
negative values (sorry - you can't scroll 
backwards, or get the text to disappear 
up its own.... header?.... with this 
program!) 

3. You may set the scrolled area 
anywhere within the normal screen. 
However, if you set 'lower' to 25 and 
the line you print ends with a carriage 
return, or fills the line, then the normal 
C64 scroll routine may operate and 
shift the whole screen up one extra line. 
The same thing may happen if 'lower* 
is set to 24, and the line printed spills 
over to line 25. 

4. You can leave the scroll routine in 
action while you list a program, and 
edit the text within the window 
normally over all but the last line of 
the window. This is sometimes seen 
by the computer as being an 80- 
character line, even though it may 
really be a 40-character line. In this 
case, it reads the next line as part of 
the line you are editing, and you will, 
most likely, get a "syntax error" 
message. I have not yet succeeded in 
curing this little bug yet - if anyone 
can find a solution with a few extra 
bytes, do let me know. 



10 PRINP'[CLR/HOME] ITEM NUMBER PRICE TOTAL" 

20 PRINT 14 OFF EACH COST" 

30 SYS 53018, 25, 1 ;REM MOVES CURSOR TO START OF BOTTOM 

LINE 

40 PRINT" PRESS ANY KENY TO HALT"; 

50 SYS 53018,3,1 :REM PUTS CURSOR AT START OF TABLE 
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Suop up your 64 with this new Basic Enhancer 

By Peter Finch 




Sid Chip Control 

SOUND - Define general sound 

volume and fillers. 

Syntax: SOUND 0 - disable SID 

SOUND nl, n2[,n3, n4, n5J. 

nl filter mode 0-15 {1 low pass, 2 
band pass, 4 high pass, 8 voice 2 off 
- can be additive eg. 5 notch 
rejecl=low+high>. 

n2 volume 0-15. 

n3 filter resonance 0-15. 

n4 filter voice 0-15 (I voice 0, 2 
voice I, 4 voice 2, 8 external). 

n5 filter cut-off frequency 0 (=30 
Hz) 2047 (=20 KHz). 
ENVELOPE - Define envelope for 
each voice. 

Syntax: ENVELOPE nl, n2, n3, 
n4, n5, n6 

nl voice number 0-2. 

n2 attack 0-15. 



n3 decay 0-15 
n4 sustain 0-15. 
n5 release 0-15. 

n6 pulse width 0-4095 (proportion 
of pulse high eg. 2047=50%). 
VOICE - Produce sound of certain 
pitch and timbre. 

Syntax: VOICE nl, n2[.n3, n4. n5] 

nl voice number 0-2. 

n2 frequency 0-65535 (= Hz * 
16.77216). 

n3 waveform 1-8 (I triangular, 2 
sawtooth, 4 pulse, 8 noise). 

n4 special effects 0-2 (I synchro- 
nise, 2 ring modulate). 

n5 duration 0-255 (=seconds*50). 

Note: Use full syntax for first 
sound, thereafter can use short form 
to change frequency eg. in glissando. 
End of sound can be detected bv PEEK 
(S335+nl)=0. 



Basex - or Basic extension is 
an 8K machine code program 
residing in memory from $8000 
to S9FFF above Basic. It extends the 
crude Basic resident on the Commo- 
dore 64, and enables the user to utilise 
the powerful hardware capabilities of 
this machine, without the need for 
numerous complicated POKE state- 
ments to locations which must either 
be memorized (!), or looked up in a 
reference manual. 

Furthermore, the default memory 
map is reorganised to utilise the 
(normally unused) shadow RAM, 
hidden behind the ROMs, for the 
memory-expensive high-resolution 
graphics screen, leaving more Basic 
bytes free. The complete character set 
is user-definable, and is also located 
in shadow RAM. 

BASEX is used in the form of 
keywords, and operators which are 
tokenised in the same way as Basic. 
As with Basic, an abbreviated entry 
of the first few letters and a shifted 
letter is acceptable and will save lime. 
The utilities cover four areas: 



Vic Chip Control 

(Colour parameters - 0 black, I white, 
2 red, 3 cyan, 4 purple, 5 green, 6 blue, 
7 yellow, 8 orange, 9 brown, 10 light 
red, 1 1 greyl, 12 grey2, 13 light green, 
14 light blue, 15 grey3). 

MODE - Change screen mode. 

MODE0.nl Text, background nl. 

MODE l,nl,n2 Graphics, back- 
ground nl. cursor n2. 

MODE 2,nl,n2,n3 Multicolour 
text, background nl, cursorl n2, 
cursor2 n2. 

MODE 3,nl.n2,n3 Multicolour 
graphics, background nl, cursorl n2. 
cursor2 n3. 

MODE 4.nl,n2,n3,n4, Extended 
text, background! nl, background2 
n2, background3 n3, background4 n4. 

CLS - Clear the text screen. (Will 
alter graphics colours). 

CLG - Clear the graphics screen. 
(Will obliterate characters in text 
mode). 

CSR - Change cursor color. 

Syntax: CSR n (n=0-!5 in text 



mode, 1-3 in mode 3) 

EDGE - Change screen border. 

Syntax: EDGE n (n=0-!5). 
SCROLL - Scroll text screen. 

Syntax: SCROLL n (n=0 up, I 
down, 2 left, 3 right) 
BAR Draw a vertical bar in text 
mode. 

Syntax: BAR ni, n2 

nl Horizontal displacement 0-39. 

n2 Vertical displacement 0-199. 
PLOT - Plot a point on screen. 

Syntax: PLOTnl,n2 

nl Horizontal axis 0-79 text mode. 
0-319 mode 1.0-159 mode 3. 

n2 Vertical axis 0-49 text mode, 0- 
199 graphics mode. 

DRAW Draw a straight line from 
last point plotted. 

Syntax: DRAW nl,n2 

Parameters as for PLOT. 
CIRCLE - Draw a circle (ellipse in 
mode 3). 

Syntax: CIRCLE nl,n2,n3 

nl Radius. 

n2,n3, X,Y position of centre. 
Parameters as for PLOT. 



FILL - Fill graphics screen area within 
plotted boundary. 

Syntax: FILL nl,n2 

Fill starting from position nl,n2 = 
X,Y. 

MOB - Define a movable object block 
(sprite). 

Svntax: MOB nl (de-activate 
MOB nl) 

MOB nl,n2,n3,n4,n5[,n6,n7]. 

nl MOB number 0-7. 

n2 MOB data address in Bank 3 
0-255 (SC000+n2*$40). 

n3 Expansion 0-3 (I Y expanded, 
2 X expanded, 3 both). 

n4 Priority 0 Data > MOB, I 
MOB >data. 

n5 Colour. 

n6 Colour2 (Multicolour MOB). 

n7 Colour3. 
MOVE - Move a MOB. 

Syntax: MOVE nl,n2.n3 

nl MOB number 0-7. 

n2 Horizontal position (0-320 
visible). 

n3 Vertical position (29-229 
visible). 



YOUR COMMODORE april 1989 
58 



C 64 PROGRAMMING H C^Q 



1. Sound generation by Ihe SID chip. 

2. Graphics produced by ihe VIC chip. 

3. A disk monitor. 

4. Programming structures including 
function key definitions. 

The Commodore operators are 
extended to include hexadecimal, 
binary, label variables with more than 
two significant letters, and numeric 
output with tabulated decimal places. 
In addition, there is a full two pass 
labelling assembler used from Basic, 
which even allows conditional assem- 
bly. Other machine code utilities 
include a disassembler, memory dis- 
play in hex and ASCII, memory load 
and save. 

Summary of Basex 
Contents 

[] = optional parameters, n= numeric 
parameter, sS = string DISK - Access 
disk monitor with directory ($) and 
usual commands (C, I, N. S, UJ, V). 
X to exit. Status = < CR > alone. 
Syntax: DISK n-n defines the device 
number (usually 8). 




User Defined Graphics 



The character set is defined in shadow 
RAM starting at SE000, and may be 
redefined as required. This area of 
memory appears to be write-only 
because of the shadow effect, thus 
reading it will give erroneous values. 
A redefinition is conveniently per- 
formed in hexadecimal using the 8 byte 
poke with "*:". For example the 
Commodore logo can be defined at 
SE0O0 and will appear instead of 
Note however that this character will 
still be treated in exactly the same way 
as 

SE000 0001 1 100 SIC 

SE00I 001 101 10 $36 

SE002 01I00I1I $67 

SE003 01 100000 $60 

SE004 01I00III $67 

SE005 001 101 10 $36 

SE006 0001 1 100 SIC 

SE007 00000000 $00 

*:E000 IC 36 67 60 67 36 IC 00 



Programming Features 

APPEND - Append a program to that 
already in memory. 

Syntax: APPEND s$. nl 

Load file s$ from device nl. 
AUTO Automatic line numbering. 
STOP to escape. 

Syntax: AUTO[nl,n2] 

nl Interval (default 10). 

n2 First line number (default 10). 
DELETE - Delete line numbers within 
range. 

Syntax: DELETE nl,n2 
Delete from line nl to line n2. 

DUMP - Screen dump to printer. 
Note: requires OPEN 4,n to printer 
assumes Epson type for graphics 

dump. 

KEY - Define function keys. (Fl set 
to TAB). 

Svntax: KEY nl (clear function 
key nl) 

KEYnl.s$[ -]. 
nl Function key number 2-8. 
s$ String definition (max length 8). 
- Automatic carriage return. 
OLD - Undoes the effect of NEW. 
PIC - Define decimal places for 
numeric output with ! 
Syntax: PIC nl 

nl Number of decimal places 0-9. 
RENUMBER Line renumber 
(including GOTO/GOSUB etc). 

Syntax: RENUMBER [nl,n2] 

nl Interval (default 10). 

n2 First line number (default 10). 

REPEAT: UNTIL/ WHILE (con- 
dition) - Structured programming. 

Example: J=0: REPEAT: PRINT 
J: J=J+I: UNTIL J- 10. 

J=0: REPEAT: PRINT 
J: J=J+ 1 : WHILE .1 10. 



Operators 

PRINT nl,n2.s$ - Prints string s$ 
at row nl, column n2. 

£n 1 - Outputs n I as a hexadecimal 
string. 

!nl - Outputs nl as string with 
tabulated decimal. 

$s$ - Outputs hex string sS as 
numeric variable. 

%s$ - Outputs binary string s$ as 
numeric variable. 

.NAME - Label from assembler as 
numeric variable. 



Machine Code Features 

*ASS - Commence two pass labelling 
assembler. 

Syntax: *ASS nl. 

Commence assembly at address n I, 
terminated by *END. Assembler code 
can include complex operands, includ- 
ing labels which must be signified by 
.name; such code must be tokenised. 
However, tokenisation of opcodes (eg 
AND, ORAJ and labels must be 
suppressed by REM (which is 
ignored). Note the use of EQU - a 
multipurpose DB/DS to define bytes 
or string in memory. Characters to the 
right of ; are ignored. Labels are 
assigned the value 65535 ($FFFF) on 
first pass - thus .LABEL+1 will fail 
unless the label has been assigned 
before the reference. 

Example: 

10 MA=$7F : LO=$C000 : REM = 
MASK, LOCATION 
20 *ASS SC800 

30 .START LDA .MESSAGE/256 : 

LDY $C8 ;Ignore this 

40 REM AND MASK. : STA 

LOCATION 

50 REM RTS 

60 .MESSAGE EQU $93, "This is a 
message"! 3.SD 
70 *END 

80 SYS .START :REM Call this 
(nonsense) program 

*DIS - Disassemble machine code. 

Syntax: *DIS nl[,n2] 

Disassemble memory contents 
from nl to n2, a page at a lime. 
*LOAD - Load code without disturb- 
ing BASIC pointers. 

Syntax: *LOAD s$,nl 

Load file s$ from device nl to 
header address. 

*MEM - Display memory in hexade- 
cimal and ASCII. 

Syntax: *MEM nl[,n2] 

Display memory contents from 
address nl to n2 

•SAVE - Save code from anywhere 

in memory. 

Syntax: 'SAVE s$,nl,n2,n3 
Save file s$ on device nl, from 

address nl to n2 

*: - Eight byte hexadecimal POKE. 

Svntax: *:C000 AA 55 AA 55 AA 
55 AA 55 

Poke the eight hexadecimal bytes 
to memory (here to $C000) 
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Zeus, by Jove! 




A notable omission from the 
otherwise excellent CBM Disk 
Operating System provided on 
the C16 and Plus, 4 computers is the 
facility to copy disk files from one disk 
to another. The ZEUS Megacopier has 
been designed to remedy this. 

There are in fact two ways of 
copying files from disk to disk, but 
both involve considerable problems. 
The first is to use the "SD.BACKUP" 
program provided on your disk-drive 
system disk, but this program will only 
copy whole disks, which is a 
tremendous waste of time. It also 
means that any files previously on the 
disk will be lost. The second method 
is to use one of the many simple file- 
copier programs available. The 
problem with these is that they can 
only copy files of up to around 200 
blocks in length. If you're using such 
a program on a C 16, the state of affairs 
is even worse - you'll be limited to 
copying files of up to 48 blocks or so. 

Not being able to copy files longer 
than the capacity of your computer 
may not seem a great disadvantage, 
but if you use your computer for any 
serious programming or data storage, 
you'll realize that it's a bit ridiculous 
only being able to copy files 48 blocks 
long when a single floppy-disk can 



Mark Everingham 's 
new program, ZEUS, 
will allow you to copy 
disk files of any length 



contain files up to 664 blocks in length! 
This is where ZEUS comes in. 

ZEUS is a file-copier program of 
the second type mentioned above, but 
it can copy files of any length. ZEUS 
will copy files of any length from a 
one block midget to a 664 block giant. 
In fact, ZEUS can copy files of infinite 
length, so it can also be used on a 1581 
drive to copy the huge 2000 block files 
that are possible. ZEUS can also be 
of use to owners of C64's and C16's 
or Plus/4's - if you have a C64 file 
of say 250 blocks that you can't copy 
using your C64, just copy the file using 
ZEUS on yourCI6! 

How Does Zeus Work? 

Conventional file-copiers work by 
loading a file into memory, waiting for 
you to change the disk in your Disk- 
drive, and then saving the file back 
onto the new disk again. This means 



that you cannot copy files longer than 
the capacity of your computer - about 
12k on a CI6 or 60k on a Plus/4. 
ZEUS works in a slightly different 
way. The process for copying a file is 
shown below:- 

LOOP 1. Load 1st "Chunk" of 
data 

2. Change Disk in Disk- 
Drive 

3. Save 1st "Chunk" of 
data 

4. Have we loaded & 
saved the whole file? 
Yes -Jump to FINISH 

5. Read 1st "Chunk" of 
data 

6. Jump to LOOP for 
2nd, 3rd, 4th "Chunks'* 
etc... 

FINISH 7. End 

The operation of ZEUS relies 
entirely on the Append function of 
CBM 'DOS (OPEN n,8,n,"FILE- 
NAME,t,A"). This function allows 
your computer to add data to the end 
of a disk-file, and it's this function 
which is used in stage three of the 
copying process. By the use of a 
number of manual disk changes, files 
of infinite length can theoretically be 
copied! 
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Starting To Use Zeus 

When you first run ZEUS, youll see 
the screen divided into three 
"Windows" by two horizontal lines. In 
the first window, which is called the 
Title Window, you'll see a Title 
message and below this, the text 
"SOFTWARE RUNNING ON 
CBM???", where V? is the type of your 
computer - CI6 or +4. ZEUS 
automatically configures itself to 
whichever computer you're using in 
order to make full use of the facilities 
offered by each. 

Below the Title Window is the 
Status Window. At the top of the 
window should be the text "TYPE/ 
FILENAME:" followed by a flashing 
line-cursor. Underneath this should be 
two messages: "BLOCKS COP1ED:- 
" and "KILOBYTES COPIED:-". The 
"TYPE/ FILENAME" message is 
explained later, as are the other two. 

The third window, at the base of 
the screen, is the Dialogue Window. 
In this window is displayed all the 
requests or information from your 
computer. At present it should be 
displaying the message 'ENTER 
COPY FILE-NAME AND PRESS 
(RETURN)"*. 



Copying a File 

The first thing to do before running 
ZEUS to copy a file, is to remember 
the file-name and type of the file. These 
can be found by looking at the Disk 
Directory. The file-name should be 
apparent, the type is one of PRG, SEQ 
or USR and is displayed on the left 
of the directory. ZEUS cannot copy 
relative files, as these have complex 
file structures. 

When you know the file-name and 
type of the file to be copied, load and 
run ZEUS. You should then push 
cither "P". "S" or "U'\ to tell ZEUS 
what type of file you wish to copy. 
This character should appear in the 
status window on the screen, followed 
by an oblique stroke. You should then 
type in the file-name of the file to be 
copied, and press [RETURN]. The 
File-name you specify should not 
include "?" or characters, and 
ZEUS will reject these itself. You can 
use the (DEL) key to delete characters, 
or if you make a mistake or want to 
exit ZEUS, you can press the (ESC) 
key to return to BASIC. 

Once you've entered the Type and 
File-name, the cursor will disappear 
and the message in the dialogue 



window change to "INSERT 
SOURCE DISK AND PRESS 
(RETURN)". At this point, insert the 
disk on which the file to be copied is 
found into your disk-drive, and hit 
(RETURN). The disk should start to 
whirr. 

When you press (RETURN), the 
dialogue window should displav the 
message "- SEARCHING FOR 
SOURCE FILE -". After a few 
seconds, this should change to 
"LOADING SOURCE FILE DATA 

At this point, ZEUS starts loading 
data into RAM. and the Status 
Window should show the "BLOCKS 
COPIED"- and "KILOBYTES 
COPIED" counters increasing as the 
data is loaded. "BLOCKS COPIED" 
is the number of 254-byte disk blocks 
that ZEUS has copied, and 
"KILOBYTES COPIED" is the 
number of 1024-byle Kilobytes that 
ZEUS has copied. In one pass, ZEUS 
loads 41 blocks on a CI6 or 230 on 
a Plus/4. 

When ZEUS has finished loading 
a chunk of data, the dialogue message 
changes to "INSERT DESTI- 
NATION DISK & PRESS 
(RETURN)". At this point you should 
remove the original disk from your 
disk-drive, replace it with the disk onto 
which you wish your file to be copied, 
and press (RETURN). The message"- 
OPENING DESTINATION FILE 
" will be displayed, and ZEUS tries 
to open a new file to copy data to. 
If it is successful, the message " 
WRITING DATA TO NEW FILE - 
" is displayed and ZEUS starts writing 
data to the new file. 

As ZEUS finishes writing data to 
its new file, one of two things will 
happen. If it's copied the whole of your 
file, the message "- COPYING 
PROCESS COMPLETE -" will be 
displayed in the dialogue window, and 
ZEUS will return to BASIC with the 
file copied. If. however, there is still 
more of your file to be copied, then 
the message "INSERT SOURCE 
DISK AND PRESS (RETURN)" will 
be displayed in the dialogue window. 
Do as ZEUS instructs, and after M - 
SEARCHING FOR SOURCE FILE 

ZEUS will say "- READING 
SOURCE FILE DATA At this 
point, ZEUS skips past the first chunk 
of data in order to load the second. 
When it has done this, the message 
"- LOADING SOURCE FILE 
DATA -" is shown, and the process 
described above is repeated until the 
whole file has been copied. 



When ZEUS returns to BASIC, 
youll find on your destination disk a 
perfect and identical copy of the 
original file you selected. If anything 
goes wrong during the process of 
copying a file, ZEUS will display a 
suitable error message. It then displays 
the message "PRESS (RETURN) TO 
ACKNOWLEDGE" and when you do 
so, ZEUS returns to Basic. ZEUS will 
cope with any standard DOS error 
message and displays the Error 
Number, Message and Track & Sector 
at which the error occured. Full 
explanations of these messages may be 
found on page 176 of your computer's 
manual. Alternatively, consult page 53 
of your disk-drive manual. 

The process of copying very long 
files can take quite a long time between 
disk changes, so in addition to the 
message ZEUS displays, it makes two 
sounds in order to inform you what 
it is doing, or to attract your attention 
to change disks or acknowledge a disk 
error. In essence, a low frequency bleep 
indicates that ZEUS has finished part 
of the copying process. A high 
frequency bleep indicates that ZEUS 
requires some human input or a disk 
change. When a disk error occurs, 
ZEUS bleeps alternately high and low 
to attract your attention. The use of 
sounds means that you are not 
continuously tied to the computer 
doing nothing! 

Getting Zeus "Up & 
Running" 

As you can see, the process of copying 
a file is quite straightforward when 
using ZEUS, and getting the program 
working is equally easy. The process 
is as follows:- 

1. Type POKE 5888.0:POKE 
44,23:NEW 

2. Enter the ZEUS LOADER program 

3. Type RUN and follow the 
instructions given by the program 

When you've done the above, there 
will be saved on your disk two files: 
"ZEUS LOADER" and "ZEUS". To 
copy a file, just reset your machine and 
type:- 

L DLOAD "ZEUS" 
2. RUN 

ZEUS will now be in operation, 
and you can rerun the program as 
many limes as you wish to copy more 
than one file. If you then want to run 
another program or write your own, 
you should press the (RESET) button 
on your computer before starting to 
do so. 
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Contributions 

So you own a Commodore? So you've 
written some programs? So why haven't you 
sent them to us? 



y 

M our Commodore is always on the 
look out for new programs, hints and 
tips, articles and even regular series. In 
tact if you have something that you 
think could be of use to other Commo- 
dore owners we want to hear about \L 
So if you have got something which 
you think we may be interested in, 
How do vou go about submitting it to 
us? 

Below you will find a list of guide- 
lines that will help us to deal with any 
item that you send in to us. We don't 
expect everybody to be the next 
William Shakespeare but if you do 
follow these simple rules then it will 
make our job a lot easier. 

1) If possible all material sent to the 
magazine should be typed or printed 
out on a computer printer. 

2) All text should be double spaced i.e. 
there should be a blank line between 
each line of tCXC. You should also leave 
a margin of about 10 characters 
around the text. 

3) On the very tlrst page you should 
put the following: 

Name of the article 

Machine that it is for 

Any extras required - disk, printer 

etc. 

Your name 

Your address 

Your telephone number 

4| The top of every page should have 
the following information on it: 

Abbreviation of the article title 

Your name 

The page number 



For example, suppose you had 
submitted an article on C64 interrupts. 
You should put something like the 
following at the head of the page: 

Interrupts/J, Smith/1 

5) Please make sure that you do not 
make any additional marks on your 
text especially underlining. 

6) Try and write in clear concise 
English, it does not have to be a work 
of literature but it must be comprehen- 
sible. 

7) On the bottom of each page you 
should put the word MORE if there 
are more pages to the article or ENDS 
if it is the last page. 

8) If possible, enclose a listing of all 
programs. 

9) Under no circumstances use a 
staple to hold the pages together. Use a 
paperclip instead. 

10) Programs should be included on 
either disk or tape. Make sure that you 
SAVE two copies of every program so 
that we have a better chance ol loading 
them if problems occur. 

11) Programs under 10 lines can be 
included in the text, lfyour program is 
longer than this you must enclose a 
disk or cassette. 

12) If your article needs any artwork 
then supply clear examples of what is 
needed. We don't expect vou to be an 
artist but we do need to see what is 
required. 



13) Photographs, if necessary, must 
be either black and white prints or 
colour slides. We can take shots our- 
selves so don't worry about this too 
much. 

14) Submissions of any length are 
welcome. If you have a five line routine 
that you think may be of use to 
someone else we welcome it just as 
much as a full blown six part series. 

15) Payment varies quite a lot and de- 
pends on quite a number of factors, 
such as complexity of program, 
presentation of program, number of 
magazine pages it takes up etc. Pay- 
ment is generally between £10.00 and 
£800.00. 

16) All payments are made in the 
month that the magazine containing 
your article has appeared in print. 

17) If we do find your submission 
suitable for inclusion in the magazine 
we will write to you giving the terms of 
publication, the rate of payment and 
an agreement form. Prompt return of 
this form will allow us to use your 
program as soon as possible. 

18) If you want the program return- 
ing to you, should we find it unsuitable 
for publication, [hen you should 
enclose a stamped self addressed 
envelope. 

19) The last and most important point 
to make is 'gel writing*, we are waiting 
for your articles. 
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Software 
for Sale 

If you think that one of our programs looks very interesting, but you can't 
afford the time to type it in, then our software service will help you out 



It's three o'clock in the morning. You sit at the computer 
keyboard having just finished a marathon typing session 
entering one of the superb programs from Your 
Commodore. Your fingers reach for the keyboard and press 
the letters R, U and N. You press RETURN, sit back and 
nothing happens. 

Everyone has probably faced this problem. When it does 
happen it's a matter of spending hours searching through 
the program for any typing mistakes. No matter how long 
you look or how many people help you, you can usually 
guarantee that at least one little but slips through unnoticed. 

The Your Commodore Software Service makes available 
all of the programs from each issue on both cassette and 
disk at a price of £6.00 for disk and £4.00 for cassette. 
None of the documentation for the programs is supplied 
with the software since it is all available in the relevant 
magazine. Should you not have the magazine then back 
issues are available from the following address: 

INFONET LTD, 5 River Park Estate. Berkahmsted. Herts, 

HP4 I HL. 

Tel: (04427)76661 

Please contact this address for prices and availability. 

The Disk 

Programs on the disk will also be supplied as totally working 
versions, i.e. when possible we will not use Basic Loaders 
thus making use of the programs much easier. Unfortunately 
at the moment we cannot duplicate C 16 and Plus/4 cassettes. 
However programs for these machines will be available on 
the disk. 

What programs are available? 

At the lop of each article you will find a strap containing 
ihe article type, C64 Program etc. So that you can sec 
which programs are available on which format, you will 
also find a couple of symbols after this strap. The symbols 
have the following meaning: 

@ 

This symbol means that the program is available on cassette. 




These programs are available on disk. 



Please Note 

Since the programs supplied on cassette arc total working 
versions of the program, we do not put disk-only programs 
on tape. There is no sense in placing a program that expects 
to be reading from disk on to tape. 

NOVEMBER 1988 

SECRET WRITING — Learn how to conceal messages 
and how to protect your Basic programs (C64). 
PAINLESS WINDOWS — Extend the power of the C128's 
WINDOW command. 

UNLOCK HIDDEN 128 POWERS - Use the full keyset 
of your CI 28 in C64 mode. 

WILLIAM TELL — Fight off the Austrian soldiers in this 
great C64 arcade game. 

TALKING COMPUTERS — Use speech synthesisers with 
your C64. 
ORDER CODE 
TAPE YCNOV88 £4.00 
DISK YDNOV88 £6.00 

DECEMBER 1988 

F-KEY LABELLER - Use your Commodore printer to 
produce a template for your function kevs (C64). 
+4 DIRECTORY EDITOR Rearrange your Plus/ 4 disk 
directory entries however you like. Available on disk only. 
DOUBLE HEIGHT - Enhance your C64 text displays with 
a double height character set. 

PROGRAM PROTECTION - Protect your latest C64 
masterpiece from prying eyes. 

SPRITE CONTROLLER - Basic sprite manipulation made 

easy. C64. 

GRAPHIC EDITOR - A quick and simple C64 UDG 
editor. 

MASTERING THE RASTER - The source code to 
accompany our article on raster interrupts (C64). 
CREATING CHARACTERS - Give your Plus/4 and 
Commodore printer a better print quality. Available on 
disk only. 

WILLIAM TELL See November for details (C64). 

ORDER CODE 
TAPE YCDEC88 £4.00 
DISK YDDEC88 £6.00 
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JANUARY 1089 



MARCH 1989 



PREFAB SPRITES - A powerful sprite editor for the C64. 
DAZPRO - A simple but helpful text processor for the 
C64. Available on disk and cassette but will only store files 
on tape. 

UDG COMPRESSOR - Save on memory when using 

UDG's in your programs. For C64 only. 

WILLIAM TELL - Our popular arcade game for the C64. 

+4 AUTORUN Improve tape loading on your Plus/4 

cassette. Only available on disk. 

MINIBASE A database for CI28 owners. 

ORDER C ODE 
DISK YDJAN89 £6.00 
TAPE YCJAN89 £4.00 



FEBRUARY 1989 



PERSONAL FILE - A cross between a wordprocessor and 
a database that allows you to set up "cards'' that can be 
quickly altered (C64 Disk only). 

LETTER WRITER - An 80 column text editor for writing 
those personal letters (C64). 

BASIC WORKSHOP - A single key entry system, just 
likeaSpeccy! (C64) 

HEAD FOR HOME - Our version of a popular board 
game for C16 and Plus/4 owners - available on disk only. 

SPRITE LIBRARY - Geometric shapes form this month's 
installment {C64). 



TAPE MENU Add a menu system to your program 
cassettes (C64). 

SONIC EFFECTS A superb sound editor for the C64. 
F DUMP Dump your C64 text screens to printer with 
ease. 

DATA LOADER - A simple wav to enter those reams 
of C64 DATA lines. 

SPRITE LIBRARY - A collection of birds to vour growing 
library (C64). 

PLAY THE GAME - A superb fruit machine programe 
for the Plus 4. (Available on disk only). 

ORDER CODE 
DISK YDFEB89 £6.00 
TAPE YCFEB89 £4.00 



ELECTRONIC NOTEBOOK - A personal diarv on disk 
(C64 disk only). 

WILLIAM TELL - Our very popular arcade adventure 
for the C64. 

ORDER CODE 
DISK YDMAR89£6.00 
TAPE YCMAR89 £4.00 



Cassettes or disks are available from March 1986. Please 
ring the editorial office (01-437 0626) for details of these. 



ORDER FORM - PLEASE COMPLETE IN BLOCK CAPITALS 



NAME 



APRIL 89 



APRIL 89 



QTY 



OVERSEAS POST £1 



TAPE/DISK 



TAPE (£4.00) 



DISK (£6.00) 



ORDER CODE 



YCAPR89 



YDAPR89 



PRICE 



TOTAL 



I 
I 

j NAME 

J ADDRESS 

j POSTCODE 

I enclose a cheque/postal order for £ made payable (o ARGUS SPECIALIST 

PUBLICATIONS LTD. 

j All orders should be sent to; YOUR COMMODORE. READERS SERVICES, ARGUS 
■ SPECIALIST 

PUBLICATIONS, 9 HALL ROAD, HEMEL HEMPSTEAD, HERTS HP2 7BH. 
j Please allow 28 days for delivery. 
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Listings 

Get it right first time with our deluxe program system 

for the C64. 



Y 

A ou may have noticed lhai our 
listings are free of those horrible little 
black blobs which send you searching 
around the keyboard For a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing. Fret no more, 
it's all part of our easy entry aid. 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
statements and strings we use a special 
coding system. The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings. 

For example. (SA| would mean 
type in a Shifted A. or an ace of spades 
in layman's terms, and |SAI0] would 
mean a row of ten of these symbols. 

(S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that (C+2j means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboard) 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or. exceptionally. [SSPC4]. 
Translated into English this means 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it. 

A string of special characters could 
appear as: 

[CTRL N. DOWN2.LKFT5.BLUE. 
F3.C3] 

This would be achieved by holding 



down the CTRL key as you press N. 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE while holding down the 
CTRL key. press the F3 key and, 
linally hold the Commodore key down 
while pressing the number two key (C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only have a row of graphics characters 
on yourscreen with nosquare brackets 
and no commas, unless something like 
this appears: 
[SS].[C*| 

In this case the two characters should 
have a comma between them. 

On rare occasions |REV T] will 
appear in a listing. This is a delete 
symbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark (SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. I lold down CTR I 
and press the number nine key 
(RVSON). type the relevant number of 
reversed T's and then hold down 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it again. Now finish the line and 
press RETURN. 

A list of these special cases is given 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the sy mbol 
for pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 



:CC=2*|PI|*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol). 



FROGS t"^: SYNTAX CHECI ER 



5 REn SYTAX CHECKER - ERIC ODYLE 

10 BL-10 .-LN-70 :SA-49l52 
20 FDR L-0 TO BL,CX-O:F0R 0-0 TO 
IS 

30 READ ft.tF A>2SSTHENPRINT"NunB 
ER TO L«RGE";LN-tLMO):STOP 
tO CX-CX-A:P0KE SA*L*16-D,A:NEXT 
D 

50 READ A : IF fl><CX THENPRINT" ERR 

OR IN LINE";LN-CL«10);ST0P 

60 NEXT L.SYS 49152. NEU 

70 DATA 173,5,3,501.165.208,31,1 

20. 165, 3, 141 , 32 , 308, It 1 , 33. 20B, 1 

617 

BO DOM 169,7.141.134,2,169,13,3 
2.210,255,169.64,141.4,3,163.168 

90 DATA 192.141,5,3,89,96.120.16 
3.154,141,4.3,169.165,141,5.1566 

100 DATA 3.169,14.141,134.2.141, 

32,209, '69.6,141,33,208,88,96, 15 
85 

110 DATA 32.124.165.72,138,72,15 

2.72.182,0.165,20.133.254,155,21 
, 1747 

120 DATA 24. 101 ,254, 133, 2S4, 189, 
0, 2, 240 . IB, 63. 254 ,133, 254 , 232, IB 
9.2346 

130 DATA 0,2,240,8,24,101.254,13 
3,254.232,208,233, 163. 1, 141, 134, 
2134 

140 DATA 2,165.254.74.74,74,74,3 
2. 156. 132.32,210,255,165.254,41, 
2054 

150 DATA 15,32,155,192.32.210,25 

5,163.13.32,210,255,163,13,32.21 
0. 1395 

160 DATA 255,169,7,141,134,2.104 
, 1 6B , 104 , 1 70 , 104 , 96 , 24 . 105 , 4B , 20 
1, 1632 

170 DATA S6, IB, 1.96,24. 105,7,96, 
0,0,0.0.0,0.0,0,403 

by Eric Doyle 
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Checksum Program 

The hexadecimal numbers appearing 
in a column to the left of (he listing 
should not be lyped in wilh I he 
program. These are merely checksum 
values and are there 10 help you gel 
each line right. Don't worry if you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. 

Type in the Checksum Program, 
make sure thai, you've not made any 
mistakes and save it to tape or disk 



immediately because it will be used 
with most of the present and future 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it* 
The screen will turn brown with yellow 
characters and each time you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the two values don't relate to one 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

If you want to turn off the checker 
simply type SYS49I52 and the screen 
will return to the familiar blue colours. 
You can then do whatever it was you 
wanted to do and if this doesn't use the 
area where Checksum lies you can go 
back to it with the same SYS 
command. 

No system is foolproof but the 
chances of two errors cancelling one 
Many of the listings are presented in 
lower case. To turn your computer to 
lower case mode press the 
Commodore key and the SHIFT key 
at the same time. V'i 



Mnemonic 

| RIGHT) 

(LEFT) 

inowN] 

[UP] 

[FI] 

[F2] 

[F3] 

[F4] 

IF5] 

[F6] 

[P7j 
[FS] 

| HOME] 

[CLR] 

[RVSON] 

[RVSOFF] 



Symbol Keypress 

CRSR left/right 
SHIFT & CRSR left/right 
CRSR up/down 
SHIFT & CRSR up/down 
fl key 

SHIFT & fl key 
(3 key 

SHIFT & 13 key 

f5 key 

SHIFT & 15 key 

17 key 

SHIFT & 17 key 
CLR/HOME 
SHIFT & CLR/HOME 
CTRL & 9 
CTRL & 0 



m 



Mnemonic Symbol 

(BLACK] 
(WHITE] 
(RED| 
(CYANl 
[PURPLE] 
[GREEN] 
(BLUE] 
(YELLOW] 

[POUND] 
ILARROW] 

[UPARROW] 
[PI] 
|INST| 
(REV T] 
|Cletter] 
ISIetter] 



Keypress 

CTRL & 1 

CTRL & 2 
CTRL & 3 
CTRL & 4 
CTRL & 5 
CTRL & 6 
CTRL & 7 
CTRL & 8 
£ 

SHIFT & ^ 
SHIFT & INST/DEL 
see text 
CBM + letter 
SHIFT + letter 
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Listings 



Basex 




PROGRAM : BASEX 



11 10 PRINT"CCLR,DDU)N10,RIGHT6: 
LOADING BASEX - PLEASE WAIT . 

B 

99 20 C"C*1: IFC-1THENL0AD"BA5EX 

.HEX", 6, 1 
E5 25 REM ■ CHANGE , 8 TO ,1 FDR 

TAPE • 
C2 30 SYSG4738 



PROGRAM: BASEX . BAS 



El 1S0 DATA 33,133,133,134.134. 

134, 134,515,520,45, 1GB, 5, E10 

,0.0,0, 1635 
IB 500 DATA 0,0,0,0,0,0,0,0,0 0 

,0,0,0,0,0,0,0 
CB 210 DATA 530,122,208,2,530,1 

53 , 32 , 121 , 0 , 240 , 3 , 201 , 59 , 208 

,S,32, 1S25 
C4 220 DATA 115,0,208,551,96,18 

9,128,132,205, 15,2,240,6,202 

,16,545,2050 
06 230 DATA 76,8,175,189,192,13 

2.205,16,2,208,242.138,201,2 

4,176.11,1995 
86 240 DATA 160,3.74.144,2,9,12 

B , 136, 208 , 548 , 96 , 105 , 39 , 501 , 

75,144,1769 
38 250 DATA 539, 105 , 7 , 501 , BB , 14 

4,533, 105,39,201, 136, 144.227 
,105,55,501,5530 
B3 260 DATA 200.144,251,105,11, 

201,216,144,215,41,3,176.211 
,32, 121,0,2041 
45 570 DATA 201,35.540,75,501 4 

0 , 540 , 87 , 1GS . 155 . 20B , 5 , 198 , 1 

53, 19B, 122, 5257 

E4 2B0 DATA 32,5.137,75,206,22, 

32,6,129,240, 13,201,44,508,8 
0,32, 145B 

7S 290 DATA 0,129.208,551,104,1 

62,20,96.104,162.4,96,32,6,1 
29,20B,1711 

FB 300 DATA 4,104,162,12,96.201 

, 44 . 20B . 54 , 32 , 115, 0, 201 , BB , 5 

0B.7.1S36 
75 310 DATA 162,58,35.0,159.104 

, 96 , 20 1 , 89 , 50B , 36 , 1 62 , 54 , 20B 

.243,32,1754 

DF 320 DATA 115,0.35.5,137,508, 

24.72.165.8,35,6,129,104,96, 
32,1159 

58 330 DATA 115,0,32.2,137,72,3 

2, 121.0,201,41,240.27.501,44 
.508.1473 

9A 340 DATA 48. 35,115,0, 201, BB, 
208 . 547 , 35 , US , 0 , 201 , 41 , 208 , 
540.165.193B 

34 350 DATA 0,35,0,159,104.508, 
235 , 96 . 35 , 0 , 129 , 240 , IS , 201 , 4 
4,508, 1670 

FE 360 DATA 222,32,115.0,201 89 
. 208 . 515 , 165 , 16 , 508 . 559, 165 . 
44,104,96.5103 

47 370 DATA 0.76,8,175,165,3,32 

,115,0,240,246,75,505,208.54 
7, 142, 195B 
3C 380 DATA 15,2,165,3,104,56,5 
33,63, 160,5,74, 110.16,5,110, 
15,1131 

C4 390 DATA 5,136,508,246,205 5 

08,237,32.0,159,508,18,165,6 
7,32,51,1908 

69 400 DATA 159,554,24.144,504 
141.16,2.169.1,141,19,2,96,1 
73, 15,1500 

AS 410 DATA 2,201,172,208,3.76. 

50, 131,173, 16,2.168.41,248,2 

01 ,54, 1716 
67 450 DATA 508,6,155,201,56,24 

0.3,76,539,130,32,93,129,140 
,17.2, 1696 

AS 430 DATA 141,18,5,134,75.160 

.2.72,104.240.1.200.140.19,2 
,173,1483 



16 440 DATA 16,2,201,93,508,1b. 

138 , 4 1 , 547 , 50 1 , 4 . 508 , 1 35 , 169 

,32.162,1875 

Bl 450 DATA 3,142,19,5,141,15,2 

,96.162,23,32.21,159.141,16, 
2.947 

BC 460 DATA 165.75,168,224,5,17 

6 , 12 , 41 , 247 , 501 , 4 , 206 , 525 , 15 
2. 13, 16, 1926 

A2 470 DATA 2,208,225,508,13,23 

2,41,32,9,15,234,534,234,13, 
16,2, 1715 

08 480 DATA 206,207,224,6,176,1 

4, 201, 8, 240, 20S, 41, 4, 240, 46. 
1S2, 13, 1985 

53 490 DATA 16, 5, 208 , 192 , 224, 6, 

176, 12,501,8,540, 187.41,20.5 
01.4, 1740 

4C 500 DATA 208,169,240,534,224 
.16.144,231,224,21,208.12,20 

1,8,240, 167,2547 
21 S10 DATA 201.54,208,4,9.4,20 

8,215,41,4,208,210,76,8, 175, 

32, 1527 

El 520 DATA 2,137,170.152,56.23 

3 , 2 , 176, 1 , 202 , 56 , 229 , 249 , 141 

,17,5,1825 
28 530 DATA 138,229.550,168,165 

,555.508. 16.44, 17,2. 4B, 6, 192 

,0,240, 197B 

BE 540 DATA 6,208,28,192,555,20 
8 , 24 , 234 , 169 , 2 , 141 , 19 , 2 , 162 , 
47,32,1729 

07 550 DATA 51 , 129 , 524 , 40 , 144 , 1 

98,141,16,2,35.6,159,206.190 
,95,76,1652 

97 560 DATA 72,178,173,16,2,501 

, 52 , 508 . 1 79 , 35 , 1 51 , 0 , 501 . 34 , 
540.40,1749 

93 570 DATA 162,0.32,2,137,540, 
9 . 72 . 152 . 129 , 249, 32 , 135 . 131 , 
104, 168, 1754 
02 580 DATA 1S2. 129,249.32. 135, 

131,35,6,159.508.6, 169,0, 141 
,19,5,1540 

6E 590 DATA 96,35,253,174,506,2 

14.240.135,35.115,0.165,0,16 
1.152,501.2142 
6E 600 DATA 34,240,7,129,249,32 

,129.131,208,241,32,0.129,20 

8,256,540,2535 
16 610 DATA 518,230,125,508,5,2 

30 . 153 , 530 , 249 , 50B , 5 , 530 . 550 

,56,0,0,5398 
14 620 DATA 32,2.137,133,550.13 

2,249, 133,252, 132.551, 164,49 

,165,50,133,5264 
22 630 DATA 248.132,547.164,152 

. 165 , 153, 133, 554 , 135. 253, 169 

,131,160.188.141,2762 
80 640 DATA 9,3,140,8,3,169.1.1 

33. 255, 96, 0,0. 32, .US, 0,201, 1 
165 

B6 650 DATA 143.240,249,501,175 
,240,50,201,46,208,3,32.55.1 
32 , 165, 122, 2259 
9E 660 DATA 208.5,198,153,198 1 

22,35,4,130,172.19.2,165,25s 

,208,12,1850 
8D 670 DATA 136,185.16,2,145,24 
5,136.16,248,172.19.2.152,24 

, 101 ,249, 1652 

79 660 DATA 133,249,144,2,230,2 
50, 76 . 174 , 167 , 32 , 1 15 , 0 , 201 , 1 



22 10 BL-436:LN-S0:SA-35758 

SB 50 FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15: READ A : CX-CX+A : POKE 

SA+L*16-D , A: NEXT D 
77 30 PRINT" ." ; : READ A: IF A><CX 
THENPRINT"ERROR IN LINE" ; LN 

♦CL-10D :STOP 
86 40 NEXT L 

7E 50 DATA 66,139,215,139.195,1 
94 , 205 , 56 . 48 , 65 , 80 , 80 , 69 , 78 , 
196,65,1890 

D4 60 DATA 65,84,207,66.65,210, 
67 , 73 , 82 , 67 , 76 , 197 , 67 , 76 , 199 
,67. 16BB 

CE 70 DATA 76,211,67.83,210.68, 
69 . 76 , 69, 64 , 197 , 68 , 73 , 83 . 203 
,5B,1705 

3A 80 DATA B2, 65, 215, 69,68, 71,1 
97 , 69, 78 . 85 , 69 , 76 , 79 , 90 , 197 , 
70.1571 

03 90 DATA 73.75.204,75,69.217, 
77, 79, 194 , 77 . 79 , 66 . 197 , 77 ; 79 
,66, 1727 

3B 100 DATA 197,79.76,196,80.73 
, 195 , 66 , 85 , 77 , 208 , 80 , 76 , 79 , 2 
12,82,1663 
86 110 DATA 69,7B,8S,77.66,69 t 2 

10,85,69,60,69,65.512,83,67, 
82, 1463 

63 150 DATA 79,76,204,83,79,85, 
78 . 196 . 87 , 75 , 73 . 76 . 197 , 85 , 76 
,84, 1535 

DD 130 DATA 73.504,66.79,73,67, 

197,65,83,511,68,73.211.77,6 
9,205, 1841 

E7 140 DATA 0,76,144.205,144.15 

4, 148,35,154,70, 147,67,229,3 

3.142,103.1851 
FS 150 DATA 144,254,139,71,150, 

26 , 142 , 1S4 . 14 1 , 100 , 151 , 184 . 1 

45,97,153,99,2150 
02 160 DATA 147,253,153,40,142, 

21,146,119,146,225,148,171,1 

42,67,142,42,2104 
47 170 DATA 148,79,141,93,142,9 

0,142, 191, 141. 143, 131,159, 13 

6,6B,133,116,2053 
57 1B0 DATA 137,65,137,24,137,2 

32 . 233 . 234 , 147 , 146 , SB , 36 , 37, 
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3B, 340,3,2144 
B2 690 DATA 76 , B , 175 , 190 . 255 , 48 
. 1 9 , 164 , 251 , 1G5 , 252 , 133 , S50 . 
132.249, 164,3539 
2B 700 DATA £53.165,854,133,123 
, 132, 122,76, 174,167,160,208, 
169, 138, 141.9,2424 
BS 710 DATA 3,140,9,3,208,75,23 
0, 122,208,2,230, 123, 177, 122, 
145,247,2043 
B5 720 DATA 230 , 247 . 20B, 2 . 230 , 2 
48 , 35 . 164 , 255 , 208, 6 , 32 , 244 , 1 
34,208,251,2763 
05 730 DATA 96, 136, 32, 3B, 132,20 
1,32, 208 , 249 , 162 , 253 , 232 , 16 , 
3,lBl,251.e222 
03 740 DATA 44,169,0,32,46,132, 
138 , 208 , 242 , 165, 247 , 133 , 49 , 1 
65.24B.133.2151 
CA 750 DATA 50,96,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,146 
90 760 DATA O . 32 , 1 15, 0 , 208 , 13B , 
240, 159, 169,32,44,169, 13,76, 
210,255, I860 
47 770 DATA 0,170,162,0,116,116 
, 116, 114, 196,202, 3B, 72,68,68 
, 162,200, 1B00 
30 780 DATA 26 , 26 , 3B , 3B , 1 14 , 1 14 
.136,200,98,98,68,68, 1B0, 18B 
,244,242, 1S70 
37 790 DATA 26,26,38,38,68,178, 
178 , 34 , 90 , 148 , 200 , 232 , 9 . 40 . 2 
04, 164, 1672 
35 BOO DATA 72 . 136 , 84 , 14B , 132 , 1 
10,74. 13B, 104, 50,0,0, 216, 3B, 
B4, 104, 1490 
B0 810 DATA 0,26,91,0,165,105,3 
6 . 36 , 132 , 19 , 52 , 17 , 165 , 105 , 35 
, 160, 1144 
08 B20 DATA 21,156,109,156.165, 
105,41 ,83, 138, 139, 138, 139,41 
, 168, B3, 83, 1765 
3D 830 DATA 21,156,109,156,174, 
168 , 41 , 124 , 28 , 27 . 29 , 29 . 25 , 25 
.27,25, 1164 
45 840 DATA 35,161.35,161,174,3 
5,35. 161, 174, 173. 0.0, 2B, 93,1 
57,157.1579 

02 850 DATA 162,1,181,250,72,18 
1,251,32,11,133, 104.72,74,74 
,74,74. 1746 

BD 860 DATA 32,35,133,170.104,4 
1, 15, 32,35, 133, 72, 138,32,210 
,255,104,1541 

9B 870 DATA 76 . 210, 25S, 24 , 10S, 2 
46 , 144 , 2 , 10S , 6 , 105 , SB , 95 , 201 
,4B, 144, 1825 

05 880 DATA 18, 201. SB, 144, 10,20 

I, 65, 144, 10,201,71,176,6. 105 
,9.41 , 1460 

CA 890 DATA 15,56,36,24,96,32,2 

, 137 , 132 , 251 , 133 , 252, 132 . 253 

,133,254,1938 
71 900 DATA 32,121,0.240,7,32.7 

,137, 132.253, 133,254, 162.42, 

169.58,1779 
39 910 DATA 32.26,133.32,0,133. 

32, 120, 132, 160,0, 177,251,35, 

II, 133,1404 

4F 920 DATA 32,120,132,200,192, 

8.20B. 243, 160,0, 177,251,41, 1 

27,201.32,5154 
D3 930 DATA 176,2,169.46,32,210 

. 255 , 200 . 192 , 8 , 208 . 238 , 32 , 12 

3,132.152.ai75 

03 940 DATA 24, 101, 251, 133, 251, 
144,2, 230 , 252 , 32 . 225 , 2SS , 240 
,17,56,165.2378 

OF 950 DATA 251,229,aS3. 133.2SS 

, 165 , 252 , 229 , 2S4 , 5 . 255 , 240 , 1 

75, 144, 173,96.3109 
30 960 DATA 0,0.32,121,0,76,141 

,174.169.0,133,13.32.115,0.1 

60,1166 



37 970 DATA 5,217,219,128,240,9 
, 136, 16,248,32, 121 ,0,76, 141, 
174, 185, 1947 
B7 980 DATA 225, 12B, 72, IBS , 231 , 
128,72,95,32, 160, 137, 144, 2B, 
169.0, 133. 1940 
9E 990 DATA 96,133,99,162,16,32 
, 244 ,134, 233 , 49 , 240 ,4,73, 255 
,208,13,1993 
BC 100B DATA 38,99,38,98,202,16 
, 23B , 48 , 4 , 133 , 98, 132 , 99 , 162 , 
144,56, 1605 
E2 1010 DATA 32,73, 18B, 75, 121 ,0 
,32, 115,0, 32, 1SB, 183,224.40, 
176, 18, 146B 
B5 1020 DATA 138,72.32,241,183, 
104 . 168 , 224 . 25 , 176 . 7 , 24 , 32 , 2 
40,255,76,1997 
03 1030 DATA 131,174.76,8,175,1 
69.46,56,76,243, 188, 160. 1,17 
7,122,32,1834 
75 1040 DATA 19,177.144,241.32, 
115,0,164, 122, 166. 123.132.98 
,134,99, 16a, 192B 
D8 1050 DATA 0.232,32, 11S,0. 144 
,250,32, 19, 177, 176,245, 134,9 
7, 164,47, 1B54 
OA 1060 DATA 166 , 48 , 132 , 100 , 134 
,101 , 160,255,200, 177, 100,201 
,32,240,6,209,2261 
FC 1070 DATA 98.240,245,208.17, 
196,97.208, 13,eO0,eO0, 177, 10 
0.72,136,177,2394 
S7 10B0 DATA 100,168,104.76,249 
, 133, 160,0,177, 100,240,3,200 
,208,249, 152,2319 
98 1090 DATA 56,101,100,133,100 
, 144,2,230, 101, 166, 101 ,56,22 
9,49, 138,229,1935 
□7 1100 DATA 50,144,195,169.255 
, 16B , 208 ,219,0, 170 , 74 , 74 , 74 , 
74,32,35,1941 
D4 1110 DATA 133,168,138,41,15, 
32,35, 133,96,32, 115,0,32. 158 
, 173.32,1333 
49 1120 DATA 247,183.169.0,141, 
4 ,1, 165, ei, 33,153,134, 140,0, 

I , 141 , 1532 

9F 1130 DATA 1,1,165.80,32,153, 
134. 140,2, 1, 141,3, 1, 169,0, 16 

o, lias 

CF 1140 DATA l.aOB, 16, 3e. 115,0, 
32 , 15B , 173 , 32 , 22 1 , 189 ,32,33, 
146, 169, 1557 

FA 1150 DATA 174,160,6,133,97,1 
32 , 98 , 76 , 135 . 180 . 255 , 255 , 255 
,255.255,255,2717 

A3 1160 DATA 255,255,255,0,230, 

i2e,e0B,e,e3o, ies, 160,0, 177, 

122.240.6,2385 
47 1170 DATA 201,58,240,2.201.3 

2,96,0,168.74, 144,11,74, 176, 

23,201,1701 
BE 11B0 DATA 34,340,19,41,7,9,1 

e8.74, 170, 189, 140. 135, 176,4, 

74,74, 1514 
98 1190 DATA 74,74,41,15,208,4, 
160, aSO. 169.0,170, 189, 30B, 13 

5, 133,255, 20B5 
AS 1200 DATA 41,3.141,aB,a,193, 
108,208.2, 160,76, 152,41, 159, 

240.66, 1619 
A2 1310 DATA 41,127,201,16,340, 

II, 153,41, 13, 301 ,B, 340, 4, 153 
, HI, 357,1715 

5C 1330 DATA 168,152,160,3,10.1 

44 , 3 , 9 , 1 , 136 , 20B , 249, 301 , 24 , 

176,1 , 1643 
BE 1330 DATA 96.233,40.201,33,1 

44 , 249 , 333 , 8 , 201 , 40 , 144 , 243 , 

233.40,301,3338 
F4 1340 DATA 48.144,337,333,56, 

301 , 56 . 144 . 231 , 233 , 13 , 301 , 60 
,144,335,153,3394 



D6 1350 DATA 59,96.153,160,5,74 
, 136 , 308 , 353 , 105 , 60 , 96 , 64 , 3 , 
69, 3, 1541 

A3 laea data 208.8,54, 9. 4B, 34,6 

9, 51, 208, B, 64, 9, 64. 2, 69, 51, 9 
56 

00 1270 DATA 20B , 8 , 64 , 9 . 54 , 3 , 63 
,179.308,6,64,9,0,34,68.51,1 
045 

5E laeO DATA 30B, 140, 58,0,17,34 
, 6B, 51, 20B, 140,68, 154, 16,34, 
6B, 51, 1325 
B0 1290 DATA 308.8,64.9,16,34,6 
B,51,30B,8,64,3,9B, 19, 130, 16 
9, 1153 

AS 1300 DATA 0,33, 129, 130, 0,0, B 
9,77,145,146,134,74,133,157, 
44,41, 1332 
3D 1310 DATA 44.35.40,36.89,0,8 
B, 36 , 36 . 0 , 160. 0 , 177 . 251 , 33 , 8 
, 1033 

00 1330 DATA 135,72,160,0,177,2 

51,33, 11 , 133,33, 130, 132,204, 

28,2,240,1729 
20 1330 DATA 3,200,308,340,193, 

3 , 240 , 13 , 33 , 130 , 132 , 32 , 120 , 1 

32,33. 120, 1817 

10 1340 DATA 132,200,208,340,10 
4, 168, 163, 3, IBS, 133, 132, 141 , 
11,2,185,128,2193 

79 13S0 DATA 132,141,12,2,169.0 

, 160 , 5 , 14 , 13 . 3 . 46 , 1 1 , 3 , 43 , 13 
6,886 

AO 1350 DATA 306,346,105,63,32, 
2 1 O , 255 , 203 , 308 , 234 , 32 , 130 , 1 
33.165.355,340,3707 
F0 1370 DATA 63 , 173 , 2B , 3 , 162 , 3 , 
6 , 255 . 144 , 14 , 189 , 224, 135 , 33 , 
eiO, aSS, 1894 
D6 13B0 DATA 1B9 , 330 , 1 35 , 340 , 3 , 
33 . 310 , 35S , 202 , 206 , 33S , 165 , 3 
55 , 301 , 333 , 177 , 3969 
42 1390 DATA 3S 1 , 176 , 32 , 33 , 1 1 , 1 
33 , 136 , 208 , 343 , 163 , 3 , 6 , 355 , 1 
44, 14, 1B3, 1994 
3B 1400 DATA 331,135,33,310,355 
. IBS, 337, 135.340, 3.33.210.2S 
5,202,208,235,2789 
AO 1410 DATA 76.133,133,164,353 
, 170 , 1 6 , 1 , 136 , 333 , 308 , 1 , 300 , 
138,101,351,3301 
76 1430 DATA 144,1,200,72,152,3 
3,11.133.104,33,11,133,76, 13 
3,132,0,1356 
0D 1430 DATA 33.3,137,132,251,1 
33 , 353 , 169 , 0 , 133 , 3S3 . 133 , 254 
,32,121,0,2034 
E9 1440 DATA 240,7,33,7,137.133 
,3S3, 133,354, 159,33, 133,99, 3 
3,133. 133, 1305 

11 1450 DATA 33,0,133,33,130,13 
3 , 33 , 334 , 135 , 56 , 173 , 38 , 3 , 101 
,251,133,1594 

5E 1460 DATA 251,144,2,230,252, 

199 . 99 , 240 , 21 , 33 , 235 , 255 , 240 

,13,56.165,2433 
E4 1470 DATA 253 , 229 , 2S1 . 165 , 25 
4 , 240 , 217 . 339 , 353 , 1 76 , 313 , 36 

,0.0, 165,354.3994 
50 1460 DATA 340,349.33,228.255 

,340,251,208, 192, 165, 133.30B 

,2. 198, 123, 138,3311 
FE 1430 DATA 132,96,139,72.76.1 
2, 137, 13B, 73,32,253,174,32. 1 

3B, 173,32, 1637 
52 1S00 DATA 251,183,164,30,104 

. 170, 165,31,36,32,249, 136,33 

, 160, 137,133,2052 
7S 1510 DATA 251,133,252,163.0, 

133 , 255 , 33 , 160 , 137 , 340 . 3 , 76 , 

B, 175, 152,3176 
23 1520 DATA 164,255,145,251,23 

0,255, 193, 7, 308, 337, 33, 115,0 

,208,251,340,2790 
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13 



45 



10 



CD 



5B 



DS 



El 



4E 



F3 



as 



BE 



3F 



41 



BP. 



DE 



E9 



SC 



95 



97 



3C 



PR 



CF 



71 



CI 



BE 



55 



1530 DATA 87,0, 3E, 158, 173,35 

, 163, 185,234,501 ,16, 178,223, 

166,34, 164,2041 

1540 DATA 35,32.189,255,32,2 

4 1 , 1 83 , 1 38 , 160 , 1 , 32 , 186 , 255 , 

32,7,137,1315 

1550 DATA 132,253,133,254,32 
,7, 137,168,20, 168, 1B9.2S3, 32 
,216,255. 144,2371 
1560 DATA 38.76,249,224.0,32 
, 158 , 173 , 32, 163 , 192 , 234 , 201 , 
16,176,172,2126 
1570 DATA 186,34.164,35,32,1 
89,255,32.241, 183, 138, 160, 1, 
32.186,255,2103 
1580 DATA 169.0,32,213,255.1 
78,218,98, 104,104, 108,2,3,0, 

0. 0.1480 

1530 DATA 169.0, 133, 9e. 133 9 

9 , 162 . 4 . 6 , 9B . 3B , 39 , 202 , 20B , 2 
43,5, 1703 

1600 DATA. 98, 133,98. 32, 244 1 
34 , 35 . 45 . 133 , 1 76 , 535 . 1 64 . 99 , 
165.53,36, 1382 

1610 DATA 169, 20B. 141,8, 3,16 

9.13B,141,9,3.13B,240,3,76,1 
33,227, 1B12 

1620 DATA 76,161,142,0,0,0,3 
,0. 166, 122, 160,4,202, 200,232 
, 183, 1654 

1630 DATA 0.2,240,6,16,38,20 

1 , 255 , 208 , 244. , 153 , 251 , 1 , 185 , 
251,1,2052 

1640 DATA 240,120,201,131 24 
0 . 4 , 201 , 143 , 208 , 227 . 133 , B . 20 

0,232,189,0,2477 

1650 DATA 2,153,251,1,240,22 
8 , 197 , B , 208 , 242 , 240 , 209 , 201 
32,240.218,2670 

1660 DATA 133,8,201,34,208,5 

, 153 , 251 , 1 , 240 , 225 , 201 , 63 , 20 
B, 4, 169,2104 

1870 DATA 153,208,133.169.16 

0, 133. 123, 169, 158, 133, 122,13 

2.17, 134, IS, 180,2135 

1680 DATA 0,132,11,240,2,232 

, 200 , 183 , 0 . 2 , 56 , 241 , 122 , 240 , 

246,201,2114 

1690 DATA 12B,208,7,154,17,5 
. 11 , 20B, 161 , 200, 177, 122, IB 2 
51,230,11,1916 

1700 DATA 165,11,201,76,175 
4 , 156 , 15 , 144 . 220 , 208 . 2B . 169 . 
9,133,122,1847 

1710 DATA 163,128,133,123,16 
6, 15, 160,255,209.204, 153,253 

, 1 , 133,9, 169,2279 

1720 DATA 2S5. 133, 122, 169,1, 

133, 123,36,201. 107, 144,218, 1 

65,15.164,17,2064 

1730 DATA 189,0,2,75,234,137 

. 48 . 3 . 76 , 243 , 166 . 201 , 255 , 240 

,243,36,2155 

1740 DATA 15,48,245,56,233,1 
27 . 170 , 132 . 73 , 160 , 255 , 202 , 24 
0, 12,200, 132,2360 

1750 DATA 2S4,176,21.1BS,1S8 
, 160 , 16 , 245 . 4B , 24 1 . 200 , IBS , 1 

58,160,16,3.2227 
1760 DATA 76.239,166,32,71,1 

71 , 209 , 242 , 160 , 255 , 202 , 240 , 9 
,200, IBS, 9, 2484 

1770 DATA 128, 16,250, 48.245. 
200 , IBS ,9, 129 , 4B, 229 , 32 , 71 , 1 
71.208,245,2213 

1780 DATA 32,115,0,32,217,13 
9,76 , 174 , 167 , 208, 3, 76 , 43 , 168 
,233, 129, 1810 

1730 DATA 175,3,76,165,169,2 
01,35, 176,13.10,168,185,13, 1 
50, 72, 1B5, 1807 

1B30 DATA 12,160,72,76,115,0 
.233.76, 176,20,201.224,208, 1 
3,32,115,1733 



4B 



B7 



2D 



F9 



EA 



11 



A4 



SB 



B2 



38 



Dl 



42 



DB 



64 



04 



LB 



AD 



3F 



□ 5 



B2 



B8 



23 



E3 



El 



FF 



El 



QB 



2D 



1810 DATA 0,160,5,217,213,12 

B , 240 . 23 , 136 , 15 , 248 , 76 , B . 17S 
,201,28,1874 

1B20 DATA 176, 243, 10, 16B, 185 
,14S,12B,72,1B5,14S,12B,72,7 
6, 115, 0, 152,2007 

1B30 DATA 105,27.144,239,169 

, 129, 133.32, 169,0, 133,31, 141 

,32,208,141,1831 

1840 DATA 33, 20B, 169, 162,64, 

177 , 31 , 145 , 31 , 200 , 208 , 249 , 23 

0,32,202,209,2349 

1950 DATA 244,96,142,22,208. 

32 , 153 , 253 , 32 , B0 , 253 , 32, 21 , 2 

53,32,72,1935 

1B60 DATA 155,32.36,139,98,1 
62, 11,199.102,139, 157,0,3,20 
2,16,247,1678 

1870 DATA 32,114,139,76,151, 

227, 132, 137, 131, 164,216, 137, 

134.138.208,138,2334 

1890 DATA 184,133,173,2,221, 

9,3.141.2,221,173,0,221,41,2 
52,141,1917 

1990 DATA 0,221.169,25.141,2 
4,209, 169.4, 141,130,2.169. 19 
6. 141, 136, 1976 

1900 DATA 2,206,14,220,165,1 
. 41 , 251 , 133 , 1 , 169 , 206 , 1 33 . 32 
,169,224,1959 

1910 DATA 133,34,169,0,133,3 

1,133,33,168.162.16,177,31,1 

45,33,200, 1598 

1920 DATA 208,249,230,32,230 

.34,202,209,242, 16S, 1,9,4, 13 

3.1.169,2117 

1930 DATA 226,141.22,3,169,1 

39,141,23.3,169,101.141,20,3 
, 169, 145, 1615 

1940 DATA 141.21.3,238,14,22 

0,96,32,188,246,32,225,255,2 
40,3,76,2030 

1950 DATA 114,254.32,21,253. 
32,163,253.32,24.229,32,35,1 
39,32,52,1708 

1960 DATA 155,75.123,227,32. 

2, 137,208. 1,95, 152, 14, 10B.0, 
3.32,1375 

1970 DATA 244,139,132,16,176 

.244,132.8,144,240,152,170,1 
69,46,32,210,2374 

19B0 DATA 255,169.15,168,32, 
196 , 255 , 159 , 0 , 32 . 189 , 255 , 32 , 
192,255,32,2236 

1990 DATA 207,255.201,46.240 
. 249 , 162 . 14 , 221 , SB , 140, 240 , 2 

6.202,18,249,2525 

2000 DATA 169,63.32.210,255, 

32 . 215 , 170 , 208 , 210 , 66 , 67 . 73 , 

78,82,83,2013 

2010 DATA 86,85,88.77,36,72, 
13, 224 , 9 , 209 , 6 , 169 , 15, 32 , 195 
,255, 1569 

2020 DATA 96,176,30.72,162,1 
5,32,201,255, 104, 32, 210. 2SS, 
160,0,32,1932 

2030 DATA 207,255,32,210,255 

, 201 , 13 , 240 , 3 , 200 , 208, 243 , 32 

,204,255,240,2798 

2040 DATA 155,224, 11, 144, 3B, 

8. 162, 15, 32, 198,255,40, 20B. 2 

23,32.215, 1960 

2050 DATA 170,160,12,32,207* 
255 , 32 , 1 1 , 133 , 32 . 1 20 , 132 , 136 

,20B,244,32.1916 
2060 DATA 215,170,156.145,16 

, 214 , 232 , 240 . 249 , 208 , 230 , 224 

,9,240,93, 162, 2B13 

5070 DATA 0,157,0,2.232,35,2 

07 . SSS , 501 , 13 , 208 , 245 . 32 , 210 

,255,138,5187 

5080 DATA 165,0,160,2,32,189 
,255, 165,20. 170, 160,0,32,186 
,25S,32.1B50 



87 

E7 

75 

11 

A3 

Dl 

BD 

2C 

85 

F0 

IB 

32 

44 

DC 

C0 

4A 

31 

B6 

Al 

3E 

C3 

90 

D7 

Dl 

6D 

19 

B9 

EF 



2090 DATA 192,255,166,20,32. 

199 . 255 , 35 . 507 , 555 , 32 , 207 , 25 

5,32,207,555,5600 

5100 DATA 32,207,255,165,144 

, 240, B , 165 , 20 , 32 , 195, 255 , 76 , 

10B, 140,32,2074 

2110 DATA 207,255,170,32,507 

, 255 , 32 , 205 . 1B9 . 32 , 207 , 255 , 3 

2,210,255,208,2751 

2120 DATA 248,32,215,170,165 

. 145 , 20 1 , 253 . 240 , 250 . 208 , 209 

,72.162,15,32,2597 

5130 DATA 201,255,104.32,210 

, 255 , 35 , 507 , 2SS . 201 , 32 . 209 , 2 

46.32,207,255,2732 

2140 DATA 32,45,133,144.199, 

10.10,10,10,133,31,32,207,25 
5,32.45. 132B 

5150 DATA 133,144,195,5,31,3 
2 , 210 , 255 , 75 . 1 3 , 14 1 . 35 , 544 , 1 
39. 155, 1S7, 1349 

5160 DATA 167,5,35,121,0,240 
, 6 , 32 , 253 , 174 , 205 , 16 , 539 , 95 , 
199.167,1935 

2170 DATA 2,10,10.10,10,133, 

31.202, 1B9, 167,2,41,15,5,31, 
96,954 

2180 DATA 162,3,35,43,141,54 
0.33.35,2.137,152.70,21,106, 
70.51.1S6S 

5130 DATA 106.70,21,106,141, 
22,512,155.41,7,141,21,212,2 
34,534,234, 1954 

2500 DATA 162.1.32,52,141,14 
1,23,212, 152.3,32,52. 141,141 
.24,512, 1551 

2210 DATA 96,32,244,139,192 
3,176,13,185, 152,141,133,32, 
169,215. 133,2055 
5220 DATA 33,32,253,174,96,7 

6,250, 139,0,7, 14,32, 159,141, 
162,3, 1541 

2230 DATA 32,43,141,240,240, 
32 , 2 , 137 . 72 , 152 , 160 , 2 , 145 , 32 
,200, 104, 1734 

2240 DATA 145,32,162,3,160,5 
, 32 , 62 , 14 1 . 145 , 32 . 200 , 502 , 16 
,247.96, 1560 

2550 DATA 32,159,141,35.2,13 
7,72, 152, 160,0, 145,32,200, 10 
4,145,35,1515 

5250 DATA 32,121,0,240,38,32 
, 2S3 , 174 , 162 , 2 , 32 , 43 , 141 , 162 
,5,32, 1466 

2270 DATA 62,141,160,4,9,1,1 

45,32,72,502,165,32,41,3,73, 
1.1143 

22B0 DATA 16B . 189 . 167 , 2 , 153 , 
52,3,104,153,55,3.96,155,3,1 
99,52,1551 

5290 DATA 3,240,17,222,55,3. 
208,12,1B9,151,141.16B,1B9,S 
5,3,41,1694 

5300 DATA 254, 1S3, 4, 215,202, 
50B . 531 , 76 . 49 , 234 , 0 , 32 , 544 , 1 
39, 140,32,5210 
2310 DATA 206,96,32,244,139. 
140, 134, 2,96. 169, 16, 160,0, 14 
5,43,200, 1824 

2320 DATA 14S. 43, 32, 51, 165.1 
65,34, 105,5, 133, 4S, 165, 3S, 10 
5,0,133,1358 

2330 DATA 46,76,96,166.169,3 

.35.551.163,165.123,72,165.1 
22,72,165,1696 

2340 DATA 56,72,165,57.72,16 

9 . 256 , 72 , 76 . 174 , 167 , 169 , 0 , 44 
.169,1,1691 

2350 DATA 133,31,32,159,173, 

169,255,133,74,32.138,163,15 

4,201,226,240,2312 

2360 DATA 5 , 162 , 0 , 10B , 0 , 3 , 16 

S, 31, 208, 14, 165.97,240, 14, 10 

4,104. 1420 
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IF S370 DATA 104,101.101,104,10 
H , 76 , 174 , 167 , 165 . 97 , 340 , 24H , 
104, 104. 133,57,3079 
B5 53B0 DATA 104,133,58,104,133 
,122, 104 ,133 .123, 76, 73, 145,5 
55,555,555,555,2355 
55 5390 DATA 555,169.103,133,34 
, 169, 12B, 133. 35 ,76, 71. 164, B, 
169, 10, 133, 1790 
BD 5400 DATA 49,133,53,159,0,13 
3,50, 133,54.40,240.19,35,5, 1 
37,135,1376 
93 2410 DATA 49,133,50,32,121.0 
, 240 , 7 , 32 , 7 , 137 , 132 , S3 . 133 , 5 
4,32, 1215 
0A 2450 DATA 145,166,32,51,144, 
32 , 51 , 144 , 208 , 33 , 35 , 10B , 143 , 
35.51 , 144, 1513 
4E 5430 DATA 32,51,144,208,3,76 
, 199, 144.32,51 , 144, 165,99, 14 
5, 122,32,1647 
E0 2440 DATA SI . 144 , 165 , 99 . 145 , 
122,32. 119, 143,240,556,35,51 
,144,35,51.1795 
IB 2450 DATA 144,35,51,144,201, 
34 . 208 , 1 1 , 32 . 51 , 144 , 240, 197 , 
501,34.208,1932 
F9 2460 DATA 247,240,238.170,24 
0 , IBB . 16 , 233 , 162 . 4 . 251 . 65 . 14 
4,540,5,202,2615 
12 2470 DATA 50B , 248 , 240 , 251 , 16 
5,122, 133,59,165, 123, 133.60, 
32. 115,0. 176,5200 
C7 5480 DATA 211,32,107,169,32, 
13B, 143, 165,60, 133, 153, 165.5 
9.133,155,165,1954 
19 5490 DATA 0,160,0,189,0,1,24 
0 , 17 , 75 , 32 , 115 , 0 , 144 . 3 , 35 . 18 
8,1193 

9B 5500 DATA 143,104,160,0,145, 
122,535,208,234,32, IIS. 0, 176 
,8,32.203, 1914 
CD 2510 DATA 143,32,121,0,144,2 
48 , 201 , 44 , 240 , 186 , 208 , 1S2 . 16 
5,53,133,99,2169 
0E 2550 DATA 165,54,133.98,76,1 
42, 156.165,99,24,101.49,133, 
99, 165, 9B, 1767 
8C 2530 DATA 101 . 50 , 133 , 9B , 35 , 5 
1 , 144 , 20B , 251 ,96,35, 10B ( 143 , 
35,51,144,1674 
E9 5S40 DATA 35,51,144,209,8,16 
3,0, 133,99, 133, 98, 540, 14,35, 
51,144, 1556 
35 SSS0 DATA 197,50.208,16,32,5 
1, 144. 197,21,209, 12. 165, 144, 
55,35,73,1573 
EH 5560 DATA 18B , 76 , 523 , 1B9 , 32 , 
51,144,32.119,143,240,509,32 
,220, 143,230,2271 
B2 5570 DATA 551,35,15,144,530, 
45,209,2,230,45,96,32,220,14 
3,199.251,2143 
90 2580 DATA 32,247.143,165.45, 
208,2, 198,46, 198.45,96,32,23 
0,143,160.1990 
63 2590 DATA 0.132,17.135,551,9 
6 , 165 , 122 , 133 . 34 , 165 , 123 , 133 
,35, 165.45, 174B 
DA 2600 DATA 133,36,155,46,133, 
37,96,154, 17,200, 177,34, 164, 
251 ,200, 145, 199B 
B4 2610 DATA 34 , 35 , 40 , 144 , 50B , 1 
. 96 , 530 , 34 , SOB , 536 , 230 , 35 , 20 
B.535, 164, 5135 
BF 5650 DATA 17,177,36,164,551, 
145.36,35,40. 144,508, 1,96. 16 
5,36,208,1756 
FA 5630 DATA 5 , 198 , 37 . 19B . 36 , 76 
, 15, 144,165,34, 197,35,208,4, 

165,35, 1550 
57 2640 DATA 197,37,95.160,0,23 
0 , 1 22 , 208 , 2 , 230 , 1 23 . 177 , 1 22 , 



95,0, 137, 1937 
03 2650 DATA 13B , 141 , 167 , 157 , 16 
6,59,535,208, 1,96,76,8, 175,3 
2,58, 144, 1837 
02 5660 DATA 159,0.133,10,32,21 
2 , 555 , 56 , 165 , 45 , 233 , 2 , 170 , 16 
5,46,533,1896 
SB 5670 DATA 0,168,165,10,76,11 
7 , 525 , 0 , 32 , 68 , 144 , 32 , 5 . 137 , 1 
33,252,1561 
B6 2680 DATA 132,251,32,7,137,1 
33,554, 135,553, 165,551 ,133,5 
0, 165,255, 133,5450 
BE 5690 DATA 51,32,19,166,144,4 
3 , 160 , 0 , 1 77 , 95 , 133 , 34 , 200 , 17 
7,95, 133, 1529 
D5 2700 DATA 35,160,0,177,34,14 
S , 95 , 530 , 9S , 208 , 5 , 230 , 95 , 230 
,34,208, 1979 
43 2710 DATA 2,230,35.56,165,45 
, 259 , 34 , 165 , 46 , 559 , 35 , 176 . 25 
9.35.50, 175B 
31 2720 DATA 142 , 230 . 251 , 20B , 2, 
230,555,56, 165.253,259,551 , 1 
65,554,229,252,3169 
EC 2730 DATA 176,183,162,158.10 
8,0,3,32,50, 142,76, 194, 144,0 
,8,169,1575 
6D 2740 DATA 10.133,255,133.253 
, 169 , 0 , 133 , 254 , 40 , 240, 17 , 32 , 
244,139,135,21B4 
92 27S0 DATA 255,32,151,0,540,7 
,35,7,137, 133,254, 132,253, 16 
9,6,141.1919 
97 2760 OATA 5,3.169,145,141,3, 
3, 120, 169,56. 141,20,3, 169, 14 
5,141.1430 
39 2770 DATA 21,3.88,76,123,164 
, 164 , 253 , 155 , 554, 135 , 99 , 133 , 
98, 169,0-, 1942 
77 5780 DATA 133,13,162,144,56, 
32,73, 188,32,221, 1B9, 162,0, 1 
B9, 0.1, 1595 
18 5790 DATA 240,6,157,119,2,23 
5 , 208 , 245 , 134 , 198 , 54 , 16S , 253 
,101,555,133,2475 
75 5800 DATA 553,144,5,530,254, 
76 , 131 , 164 , 32, 237 , 246 , 208 , 36 
,169.131,141,2454 
57 2810 DATA 5,3,169,164,141,3, 
3.169,101.141,20,3,169,145.1 
41,21, 1395 
8F 2850 DATA 3,165,0.169,129,16 
3, 32 , 210 , 255 , 535 , 554 , 7 , 144 , 5 
45,32,215,5545 
88 2B30 DATA 170,76,101,145,0,1 
65 , 203 , 197 , 5 , 540 , 7S , 133 , 5 , 50 

I, 3,144,1857 

D7 2840 DATA 69,201,7,176,65,17 
3,141,2,74,9, 165,203,41,3, 10 
,40, 1379 

32 2850 DATA 105,0,208,24,165,2 

II, 56,233, 10, 176,252,73,255, 
105, 1 , 133,2007 

D3 2860 DATA 198.170,169,29,157 

, 119,2,202. 16,250,48,56, 10, 1 

33,503, 10, 1745 
9D 5870 DATA 10,101,203,170,160 

.0,189,175,5,540,9, 153,119,2 

,232,200,1965 
1A 2B80 DATA 192,10,144.242,135 

, 198,76,252, 141 ,32,244, 139, 1 

92,5,144,4,2144 
73 5890 DATA 192,9,144,3,76,8,1 

75, 136, 152. 10, 133,31, 10,10,1 

01,31. 1221 
11 2900 DATA 170,160,0,32,121,0 

, 240 , 2B . 169 . 34 , 32 , 25S , 174 , 17 

7, 122.240. 1954 
D6 2910 DATA 19,201,34,240,22,1 

57 . 1 7S , 2 , 235 . 500 , 195 , 1 0 , 144 , 

239,32,115,2014 
52 2920 DATA 0,209.551,96,155,5 



0B , 11 , 157 , 175 , 5 , 96 , 500 , 177 , 1 
22,201 .95,2151 
BC 2930 DATA 240,3,169,0,44,169 
, 13 , 157 , 175 , 5 , 535 . 554 , 1 1 , 176 
,253,169.2007 
23 5940 DATA 0,157,175.5.540,51 
6 , 32 , 244 , 139 , 195 , 9 , 176 , 20 , 14 
0,52,3, 1797 
6C 2950 DATA 96,162.0,199,0,1.2 
40 , 12 , 201 , 69 , 240 , 5 , 332 . 224 . 1 
2. 144, 1827 
2C 2960 DATA 242 , 76 , 250 , 139 , S6 . 
169,9,237,52,3, 169 , 72 , 169 , 46 
,153,174,2015 
AS 2970 DATA 2,169,48,200,192,1 
0, 144,246, 104, 168, 165,0, IBS, 
0, 1 .540. 1875 
D9 5980 DATA 7,501,46,540.3,535 
,208,544, 189.0, 1,540,6,535,5 
00, 195,5541 
19 5990 DATA 10,144,245,202,136 
, 189,0, 1 , 153,174,2,202,16,5, 
169,32,1690 
54 3000 DATA 136.16,245,136,16, 
539 , 96 . 0 , 162 , 4 , 32 , 501 , SS5 , 14 
4,4. 170, 1856 
F4 3010 DATA 109,0,3,173,59,3,7 
4 . 144 . 157 . 169 , 57 , 35 , 510 , 255 , 
169,65, 1518 
00 3020 DATA 35,510,255,169,8,3 
2,510,555, 169,554,133,252, 16 
9,0, 133,251,5502 
06 3030 DATA 169,55,133,253,169 
, 27 . 32 , 210 , 255 , 169 . 75 , 35 , 5 10 
,555, 169.64,2247 
9F 3040 DATA 32.210,555,169,1,3 
5,210,255, 169,40, 133.254, 120 
,165,1,41,2087 
A6 3050 DATA 253,133,1,160,7,17 
7 , 25 1 . 153 , 167 , 2 , 1 36 . 1 6 , 248 . 1 
65,1,9, 1B79 
SB 3060 DATA 2,133,1,68,160,7,1 
65 , 0 , 30 , 167 , 2 , 38 , 255 , 235 , 554 
,8, 1509 

B5 3070 DATA 20B , 246 , 165 , 255 , 32 
, 210 , 5S5 . 1 36 , 1 6 , 536 . 1 65 . 251 , 
24,105,8,133,2445 
08 3080 DATA 251 , 144 , 2 , 530 , 2S5 , 
198.554,508, 195. 163, 13,35,51 
0,555, 165, 145,2723 
DE 3090 DATA 16,55,138,253,208, 
158,540.49,35, 105.559,169,3, 
170, 160,0.5045 
21 3100 DATA 32 , 1B6 , 255 , 169 , 0 , 3 
2 , 189 , 255 , 32 , 192 , 255 , 162 ,3,3 
S.19B,SS5,5547 
EC 3110 DATA 32,207,255,32,210, 
255,201. 13,209,246, 165, 14S, 1 
6.6, 16S, 214, 5370 
85 3120 DATA 501,54,144,536,169 
,3,32, 195,255, 169,27,35,510, 
555. 169.64,5165 
D7 3130 DATA 35.510,255,76.204, 
255 , 334 , 169 , 254 , 133 . 5S5 . 1 69 , 
0, 133,551, 168,5765 
EA 3140 DATA 165,31,115,551,500 
, 209 ,251, 230 , 252 , 202 , 208 , 546 
,160,63,145,251.3005 
1C 3150 DATA 136.16,251,36,35,5 
44, 139, 192.5. 144,3176,250,13 
9, 140,53, 1323 
7E 3160 DATA 3,152.74,144,30,16 
0 , 196 , 1 35 , 33 , 160 , 0 , 135 , 35 , 17 
0,540,6, 1754 
99 3170 DATA 32,37,149,140,33,5 
0B, 32,37, 14B, 152,41, 15, 133, 3 
1,32,37,1256 
B6 3180 DATA 148,152,10,10,10,1 
0 . S , 31 , 165 , 3 , 160 , 0 , 145 . 35 . 50 
0,508,1586 
93 3190 DATA 251,230,33,202,209 
, 246 , 145 . 32 , 200 , 192 . 232 . 141 , 
249,175,59,3,5599 
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85 3300 DATA 1 98 , 1 , 240 , 22 , 35 , 37 
,14B, 152, 160,216, 132,33, 160, 
0,162,1,1691 
FF 3210 DATA 145,32,200,208,251 
, 230 , 33 , 202 , 20B , 246 , 169 , 129 , 
234,49,39,72,2445 
6A 322© DATA 32,145,139,32,69,2 
29 , 32 , 37 , 149 , 1 40 , 33 , 209 , 104 , 
540,23,74, 1694 

79 3230 DATA 170,32,37,148,140, 
34 , 206 , 32 , 37 , 149 , 140 , 35 , 209 , 
138,240.6, 1753 

2B 3240 DATA 32,37,148,140.36.2 

06,173,59,3.74,72, 173,17,209 

,41,253,1644 
A2 3550 DATA 144,2,9,32,141,17, 

208, 104,74,75, 173,22,208,41, 

233,144,1630 
01 3260 DATA 2,9,16,141,52,209, 

104,74,173, 17.209,41, 191,144 

,2,9, 1351 
46 3270 DATA 64,141,17,208,96,3 

2 , 7 , 137 , 76 , 247 , 1 39 , 32 , 244 , 1 3 

9,192,4. 1775 
36 3260 DATA 144,3,32,250,139,1 

52 . 508 , 3 , 76 , 534 , 232 , 182 , 2 , 17 

6,21 , 162,2026 
64 3590 DATA 54 , 32, 240 , 233 , 199 , 

239,236, 133, 172, 191,216,32,2 

00 , 233 , 202 , 20B , 5770 
42 3300 DATA 240,76,255.233,74, 

102 . 172 , 162 , 24 , 32 , 240 . 233 , 32 

,36,534,36,2161 

80 3310 DATA 172,48,26,180,1,17 
7,209. 136, 145,209,200,177,24 
3,136,145,243.2427 

80 3320 DATA 200,500.192.40,144 
, 239 , 1 36 , 1E9 , 35 , 145 , 209 , 206 , 
25, 160,38, 177,2311 

4C 3330 DATA 209.200,145,209,13 

6 , 177 , 243 , 200 , 145 . 243 . 1 36 , 1 3 
6, 16,241 ,200, 169,2805 

F0 3340 DATA 32,145,209.202,16, 

195.96,16,195.96,0,32.244.13 

9, 192, 40, 1649 
C3 3350 DATA 176,144,132,249,32 
.7. 137.209. 137,56,152,233,20 

0, 176, 131 ,73,2243 
DB 3360 DATA 255,133,250,41,7,1 

70,154,249,189,218,148,72,18 

5,2S0,74.74,2459 
59 3370 DATA 74,170,32,240,533, 

32 , 36 , 234 , 104 , 1 45 , 209 , 173 . 1 3 

4,2, 145,243,2206 
B0 3360 DATA 232,159,160,72,224 
.25, 144,234,104,96, 160,227.2 

47, 24B, 98, 121,2561 
4D 3390 DATA 111,100.32,5,137 1 

40,252,3,141,253,3,32,7,137, 

140,254.1744 
A7 3400 DATA 3,141,255,3,173,59 

. 3 , 74 , 1 75 . 99 , 1 73 . 253 , 3 , 208 , 7 

7,173, 1873 

B4 3410 DATA 255,3,208,72,173,2 

52 , 3 , 201 , 90 , 176 , 65 , 169 . 49 . 56 

.237,254,2253 
C9 3420 DATA 3,144,57,74.39,251 

. 170 , 173 . 255 . 3 . 74 . 38 , 251 , 16B 

.32.240, 1969 
IE 3430 DATA 233.32,36,234,165, 

251,41,3,170,55, 168.0,42,202 

,16,252,1902 
04 3440 DATA 133,251,162,15,177 

.209,221,77,149,240.3,202,20 

B, 248, 138,5,2438 
F2 3450 DATA 251,170,189,77,149 

, 145 , 209 , 173 . 1 34 , 2 , 145 , 843 , 9 

6,32,126,124,2265 
Fl 3460 DATA 226,123,97,255,236 

, 10B , 127 , 25S , 25 1 , 98 , 252 , 254 , 

160, 170, 172,255,3009 
7C 3470 DATA 3,208,233,169.188, 

537 , 554 , 3 , 144 , 526 , 168 , 13B , 20 



8, 14, 173,252,2629 
6E 3480 DATA 3.233,64,173,253,3 

.533,1,176,210,144,18,173,85 

3,3,808,2148 
98 3490 DATA 803,173,852,3,801. 

160, 176, 186, 134,853, 173,853, 

3.174.858,3,8609 
8F 3500 DATA 134,851,133,858,18 

0 . 165 , 1 , 4 1 , 253 , 1 33 , 1 , 165 , 253 

,20B,77, 138,2385 
B0 3510 DATA 41,248, 133,251, 13B 

, 41 . 7 , 73, 7 , 170 , 169 , 1 , 202, 49 . 

3,10, 1542 
58 3580 DATA 809,250,133,254,16 

9 , 255 , 1 33 , 255 , 1S2 , 4 1 , 249 , 74 , 

74 ,74, 170, 152,2648 
E6 3530 DATA 41,7,24,101,251,13 

3,251.144,2, 830 , 252 , 24 , 188 , 2 

0, 150, 101 . 1820 
IF 3540 DATA 251,133,251,189,45 

, 150 , 101 , 252 , 133 , 858 , 160 , 0 , 1 

77.251,37,855,8637 
3C 3550 DATA 5,854.145.851,155, 

1 , 9 , 8 , 1 33 , 1 . 8B , 86 , 136 . 4 1 , 852 

.10,1591 

5B 3560 DATA 133.251,38.252,138 

,41,3,73,3,170,173.134,2,41, 

3, 133, 15BB 
2A 3570 DATA 254,169,3,202,49,8 

, 5 , 254 , 10 , 6 , 854 , 10 . 208 , 845 , 7 

3,e5S,800S 
E6 3580 DATA 133.855,808,164,0, 

64, 189.198,0,64,188,188,0,64 

, 188, 198, 1818 
35 3590 DATA 0,64,186,198,0,64. 

188, 198,0,54, 129,198,0,224,2 

25,226.1827 
83 3600 DATA 227,229,230,231,23 

2 , 234 , 235 , 83S , 837 , 239 , 240 , 24 

1 , 848 , 844 , 845 , 846 , 37BB 
ES 3610 DATA 847,848,850,851,85 

8,854.255,0,32,8,137,138,165 

,133,165,38,2557 
4A 3680 DATA 7,137.132,167,133, 

168,160,0,138,177, 138, 180,56 

,165,165,837,8148 
53 3630 DATA 252,3,133,169,165. 

166 . 237 , 253 , 3 , 133 , 170 , 5 , 169 , 

240,80,155,2293 
4D 3640 DATA 170,16.15,73,855,1 

33 , 170, 165 , 169 , 73 , 8S5 , 84 , 105 

, 1,133, 168, 1986 
94 3650 DATA 136,36,800,138,173 

, 1 60 , 0 , 56 , 1S5 , 1 67 , 237 . 254 , 3 , 

133,171.16S,218B 
9C 3650 DATA 168,237,255,3,133, 

172,5,171,240,20,165,178,16, 

15,73,855,8100 
B6 3670 DATA 133,178,165,171,73 

, 855, 84 , 105, 1 , 133, 171 , 136 , 36 

,800, 132, 176.20B3 
C4 3680 DATA 56,165,158,229,171 

, 165,170,289, 178, 176,59,38,8 

44,148,56,173,8413 
89 3630 DATA 854,3,889,167,133, 

181,173,855,3,889,168,5,181, 

840, 180,84,2365 
43 3700 DATA 165,177,101,169,13 

3,177, 165, 180, 101, 170,133,18 

0,56, 165, 177, 229, 247B 
15 3710 DATA 171,170,165,180,22 

8 , 172 , 144 , 7 , 133 , 180 , 134 , 177 , 

32,78,151,32,2148 
41 3720 DATA 47,151,76,187,150, 

32.244, 148,56, 173,252,3,229, 

16S, 133, 1B1 ,8227 
62 3730 DATA 173,253,3,229,165, 

5, 1B1, 240, 68, 84. 165,177,101, 

171,133,177,8860 
CE 3740 DATA 155,180,101,178,13 

3 , 180 , 56 , 1 65 . 177 , 888 , 169 , 1 70 

,165,180,829,170.2641 
7A 3750 DATA 144,7,133,180,134, 



177 . 38 . 47 , 151 . 38 , 78 , 151 , 75 . 2 
45.150,84,1755 

70 3760 DATA 173.254,3,101,176, 
141,254,3, 173, 8S5, 3, 36. 176, 1 
6.3,101,1868 

Bft 3770 DATA 176,24.105,0,141,2 
55,3,96,24,173,252,3,101,173 
,141,252,1919 
4B 37B0 DATA 3,173,253,3,36,173 
,16,3,101,173,24,105,0,141,2 
53,3, 1460 
CF 3790 DATA 96,0,0,0,0,173,59, 

3,74,176,6,234,159,73,76, 153 
, 1302 

14 3900 DATA 142,32,244.139,132 
. Bl . 32 , 7 , 137 . 240 , 3 , 76, 250 , 13 
9,56, 169, 1B79 

71 3B10 DATA 133,229,20.144,246 
, 133 . B0 . 162 , 3 . 173 . 134 , 2 , 41 , 3 
,133,172,1874 

C2 3820 DATA 10,10,5,172,202,80 

9,848,133,172,805, 14.220. 165 

,1,41,253,2061 
63 3830 DATA 133,1,162,0.154,16 

5,81,41,3,73,3,168,165,81,41 
.258, 1583 
DB 3840 DATA 74,74,133,81,170.1 

63.3. 136,48,4, 10, 10,208,243, 

133.88, 1584 
CA 3B50 DATA 134,97,169,0,6,97, 

42 , 6 , 97 , 42 , 6 , 97 , 42 , 133 , 98 , 24 

, 1090 

BE 3860 DATA 165,80,41,7,101,97 

, 133,97, 165.80,74,74,74, 166, 

24,185,1565 
SB 3B70 DATA 20, ISO, 101,97, 133, 

97. IBS. 45, 150, 101,99,133.98, 

160,0, 177, 1745 
9A 39B0 DATA 97,208,17,202.48,1 

3,56,165,97,233,8,133,87,176 

.240.198,1888 
FC 3890 DATA 98.208,235,232.134 

,38,228,81.240,4, 169,3, 133, B 

2, 177,87.2221 
0D 3800 DATA 37,82,208.13,6,82, 

5, B2, 208, 244, 139,808,814, 169 

,132,808,8087 
9E 3910 DATA 14.165,82,74,74,80 

8,8,830.99, 169, 188, 133, 100.8 

0B, 30, 133, 1918 
D3 3980 DATA 100,133,105,37,178 
, 133,92, 177,97,37,105,206,54 

,177,97,5,1719 
69 3930 DATA 98,145,97,70,88,70 

, 88 , 70 , 105 , 70 , 105 , 808, 834 , 16 

9, 192,133,1314 
A9 3340 DATA 105,37,172,133,82, 

232 , 224 , 40 , 240 , 20 , 165 , 97 , 105 

,8, 133,97. 1880 
El 3350 OATA 144,2,230,99,177,9 

7,208,207, 165,172, 145,37,208 
,231 ,202, 153,2552 
SA 3360 DATA 3.208,19,165,105,1 

0,10,808,13,56,165,97,833,9, 

133,97, 1530 
BE 3970 DATA 176.836,198,98,808 

,838,133, 105, 133,88,134.91,1 

32,102, 132. 101.22B3 
38 3980 DATA 18B , B0. 165, 80, 201 , 

200 , 1 76 . 98 , 4 1 , 7 , 201 , 7 . 20B , 12 

,165,37,1336 
55 3890 DATA 233,56,133.97,165, 

98,233,1,133,99.165,97,208.2 

, 198,38,8015 
3D 4000 DATA 13B , 87 , 155, 101 , 809 

. 18 , 177 , 37 , 37 , 1 05 , 808 , 82 , 1 65 

,105,72,165,1940 
Bl 4010 DATA 80,72,138,72,230,1 

01 , 20e , 10, 177 , 37 , 37 , 105 . 240 , 

4,138,101,1970 
87 4020 DATA 240,4,177,97.240,6 

, 155, 105, 10, 10,208, 16. 202, 4B 

,27,56, 1611 
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64 4030 DATA 165,97,533.8.133,9 
7 , 176, S , 138. 98 , 169, 3, 133, 105 

,228,99, 1944 

CA 4040 DATA 144 , B , SOB, 190, 197 , 
100, 144, 186,240, 1B4, 165, 108, 
808.70, 133, 101. 83B0 
30 4050 DATA 830,80.230,80,165, 
80 , 801 , 200 , 176 , SB , 165 , 88 , 133 
,105,166,81,2532 
A9 4060 DATA 230,102,134,97,169 
,0,6.97,42,6,97,42,6,97,42. 1 
33. 1300 

48 4070 DATA 98.24,165,80,41,7, 
101,97. 133,97, 165,80,74,74.7 

H, 168, 147B 

72 4080 DATA 24,165,20,150,101. 

97 , 133 , 97 , IBS , 45 , 150 , 101 , 98 , 

133,98. 160, 1777 
9C 4090 DATA 0,76,178,152,186,2 

40,11,104,170,134.81,104,133 

,90, 104,76, 1829 
AZ 4100 DATA 190,151,165,1,9,2. 

133. 1.23B, 14,220, 162,253, 154 
,76,174,1943 
99 4110 DATA 167,0,32,216,153,1 

73 , 21 , 208 , 37 , 254 , 14 1 , 21 , 208 , 

173,26,208,2040 
76 4120 DATA 37,254,141,28,209, 

32 , 240 , 153 , 152 , 1S7 , 248 , 199 , 1 

73,21,208,5.2256 
27 4130 DATA 255.141,21,208.32, 

240. 153, 152,41, 1,8.173,29,20 

8.37,254, 1953 
CE 4140 DATA 40,240,2,5,255,141 

, 29, 208, 152, 41 , 2 , B , 173, 23 , 20 

8,37, 1564 
IF 4150 DATA 254,40,240,2,5,255 
, 141 , 23 , 208 , 32 . 240 , 153 , 152 , 4 

I, 1 ,74, 1861 

0E 4160 DATA 173,27,208,5,255,1 

76,2,69, 255 , 14 1 . 27 , 208 . 32 , 24 

0, 153, 152,2123 
EE 4170 DATA 157,39,208,32.240, 

153, 140 . 37 , 208 . 32 , 240, 153 , 14 

0,38,208, 173.219B 
3A 41B0 DATA 28,208,5,255,141,2 

B.20B. 96, 32,244, 139, 192,8, 14 

4.3,76,1807 
95 4190 DATA 250,139,152,170,55 
,42, 136, 16,252. 133.255,73,25 

5, 133,254.96,2412 
C2 4200 DATA 32,121,0,840,6,32, 

253 , 1 74 , 76 , 244 . 139 , 1 04 . 104 . 9 

6,38,216. 1B69 

Al 4210 DATA 153.138,10,170.38, 

7, 137,8,173, 16,808,37.854,40 
,240,2, 1625 

DO 4280 DATA 5,255,141.16,808,1 

52.157,0,208,32.7,137,808,19 
3, 158, 157,8088 

17 4230 DATA 1,208,96,0,32,244, 
1 39 , 1 32 , 172 , 32 , 853 , 1 74 , 32 . 24 
4, 139, 132.2030 

50 4240 DATA 174,32,853,174,32, 

244,139,132,175,169,254.133, 

103,165, 175,141,8495 
2C 4250 DATA 254,3,169,0.141,25 

5,3,24, 16S, 174,101, 172,141,2 

52,3,169,2026 
2C 4860 DATA 0,105,0,141,253,3, 

169,0, 133, 102,165,172, 10, 3B, 

108, 133, 1586 
3F 4270 DATA 101,32,244,148,173 

, 855 , 3 , 208 , 20 , 173 , 854 , 3 . 197 . 

175, 20B, 13,2207 
8A 48B0 DATA 230,103,48,9,240,2 

09,166, 103,224,2.208,1.96,16 

0,0,56,1855 
5A 4290 DATA 173,252.3,229.174, 

133.97,173,253,3,233.0,133,9 

8,5,97,8056 
AB 4300 DATA 240,80,165,98,16,1 

5 , 73 , 855 , 133 , 9B , 165 , 97 , 73 , 25 



5,84, 105, 1832 
DF 4310 DATA 1,133,97,200,36.13 

6. 152,36, 103,48.5,73,255,24, 

105, 1, 1405 
32 4320 DATA 133,176,56.160,0,1 

73 , 254 , 3 , 289 , 175 , 133 , 99 , 173 , 

855,3,233,2255 
57 4330 DATA 0,133,100,5,39,840 

,80, 165, 100, 16, 15,73,255, 133 

,100. 165, 1619 
DD 4340 DATA 99.73,255,24,105,1 

, 133,99, 136,36,200,152,36, 10 

3,48,5, 1505 
7B 4350 DATA 73,255,24,105,1,13 

3, 173,56, 165,97.229,99, 165,9 

B.229. 100,2002 
4C 4360 DATA 176,38,84,165.101, 

101 ,97, 133, 101, 165, 102,101 ,9 

8, 133, 102,56, 1693 
35 4370 DATA 165,101,229,99,170 

,165, 102.229. 100,144,7, 133, l 

08, 134, 101,32.2013 
OS 4380 DATA 47.151,38,78,151,7 

6,97,154,24, 165,101,101,99.1 

33,101,165,1669 
8F 4390 DATA 108,101,100,133,10 

2,56, 165. 101 ,229,97,170, 165, 

102,889,98, 144,8094 
A6 4400 DATA 7,133,108,134,101, 

38 , 78 , 151 , 38 , 47 , 151 , 76 , 97 , 15 

4,159,0,1459 
F7 4410 DATA 141,59.3,76,114,13 

9 , 25S , 255 , 1 69 , 196 , 141 , 1 36 , 8 , 

76,91,255,2108 
01 4420 REM READY TO SAUE BA 

SEX. HEX »« 
6D 4430 PRINT"CCLR.DDUIN8JPRESS 

ANY KEY TO SAUE BASEX . HEX " 
90 4431 PRINT"CD0WN30NCE BASEX. 

HEX IS ON YOUR TAPE DR" 
DO 4432 PRINT "DISK THIS PR06RA 

11 IS NO LONGER NEEDED" 
56 4433 PRINT "CDOUNDTHE PROGRA 

n BASEX LULL LOAD AND RUN" 
4B 4434 PRINT "THE PROGRAM BASE 

X.HEX" 

86 4435 PRINT "CD0UN3IF U5IN6 T 
APE THEN BASEX ■ HEX SHOULD BE 

90 4436 PRINT "SAUEO AFTER BASE 
X. " 

60 4440 GETKS: I FK5- " "THEN4440 
3A 4450 POKE43,0:POKE44,129:POK 

E45 , 25S : P0KE46 , 159 | SAUE "BASE 

X. HEX", 8.1 
65 4460 REtl •* CHANGE ,8 TO ,1 

FOR TAPE ** 



Autoscroll 




PROGRAM: AUTOSCROLL LOAD 



Al 


63010 REM 

ft 


"AUTOSCROLL 


70 


63011 REM 




AS 


63012 REM 


BY 0. J. TRI 




PP 




3F 


63013 REM 


10/4/88 


93 


63014 REM 




FD 


63015 REM 


PROUIDES A SCROL 




LING AREA 




37 


63016 REM 


BETWEEN AN 'UPP 




ER ' AND 





4D 


63017 


REM 


'LOWER' 5CEEN 




LINE 






AF 


63018 


REM 




bl 


63019 


REM 


'SYS 58992, UPPE 




R, LOWER " 




43 


63020 


REM 


TURNS IT ON 


AL 


• 

63021 


REM 




60 


63022 

H 


REM 


"SYS 53038 


4A 


63023 


REM 


TURNS IT OF 


A9 


F. 

B3024 


REM 




89 


63085 


REM 


ALSO INCLUDES A 




"PRINT AT" 




EB 


63026 


REM 


ROUTINE 


A6 


63087 


REM 




D5 


63028 


REM 


"SYS 53018, LIN 




E. COLUMN" 




B0 


63029 
5. 


REM 


TO USE THI 


A3 


63030 


REM 




CA 


63031 


REM 


LINES GO FROM 




1 CTDP) 






63032 


REM 


TO 25 CBOTT 




OM) 






A0 


63033 


REM 




C7 


63034 


REM 


COLUMNS 60 FROM 




1 CLEFT 3 




cO 


63035 


REM 


TO 40 CRIGH 




T) 






DO 

oU 


63036 


REM 




BC 


63037 


REM 




0E 


63038 






IE 


63039 


A0-529S8 :LN-63057 


AA 


63040 


CS-0 




7C 


63041 


FOR 


1-1 TO 8 


Bl 


63048 


: READ 0 


20 


63043 


: POKE A0.D 


FA 


63044 


: CS 


-C5+0 


CC 


63045 


: AO' 


■A0-1 


83 


63046 


: IF 


A0-S3243 THEN I -8 


BF 


53047 


NEXT 




AB 


6304B 


LN-LN+1 


CD 


63049 




RC 


2D 


63050 


IF CSORC THEN PRINT "E 




RROR IN L1NE"LN: END 


OA 


63051 
0 


IF A0OS3843 THEN 6304 


7B 


63052 






CF 


63053 


REM : 


IF USED AS A SUB-R 



OUTINE APPENDED TO A PROGRAM 
, NEXT LINE SHOULD BE : - 

FB 63054 REM RETURN 

7F B3055 : 

C6 63056 END 

7D 63057 : 

51 6305B DATA 38,96,207,133.251 

,176,44.196.1135 
A3 63059 DATA 251,144,40.240,38 

,132,858,168,1859 
BA 63060 DATA 54,160,807,148.38 

,3,140,39,793 
48 63061 DATA 3,96,32,96,207,13 

3,814, 192.973 
3C 63062 DATA 40,16,16,132,811, 

76, 108.229,888 
00 63063 DATA 168,808,160.841,1 

48,3B,3, 14O.10BB 
B9 63064 DATA 39 , 3 , 96 , 76 , 72 , 17B 

, 78, 13B.674 
11 63065 DATA 72,158,72,166,252 

,888,814, 16, 1178 
B7 63066 DATA 3,38.109,207,104 

168, 104, 170,897 
OD 63067 DATA 104,76,202,241,32 

,181 .0.38,809 
17 63068 DATA 253,174,32,138 17 

3,32,191,177.1170 
3A 63069 DATA 164.101,136,48,81 

4. 192,25.96,976 
32 63070 DATA 32.76,207.16,206, 
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132,553. 3?, 954 
9B 63071 OATA 76,807,165,253.36 

,165,178.72.1206 
62 63072 DATA 165.173,72,165,17 

4,72,165,175,1161 
D7 63073 DATA 72,164,252,132,25 

4,230,254, 166, 1524 
3F 63074 DATA 251,202,196,254,2 

32,32,240,233,1642 
6D 63075 DATA 88B, 254, 176, 12, 18 

9,241,235. 133, 1469 
IE 63076 DATA 172,191,218,32.20 

0,233,46,235.1320 
74 63077 DATA 32,255,233,166,25 

1,181,217,41,1376 
99 6307B DATA 127,160,216,16,2, 

9, 126, 149,929 
CF 63079 DATA 217,232,229,254,2 

08.239, 181,217, 1776 
D3 63080 DATA 9,129,149,217,166 

,251,181,217,1318 
0B 630B1 DATA 16,197,166,254,15 

4,211, 192,40, 1240 
4E 63092 DATA 208.6,181,217,41, 

127,149,217.1146 
EB 63083 DATA 169,127,141,0,220 

, 173, 1,220, 1051 
BB 630B4 DATA 201,251,8,169,127 

,141,0,220,1117 
76 63065 DATA 40.209,11,160,0,2 

34,202,209, 1063 
65 63086 DATA 252,136.209.249,1 

32 . 198 , 165 , 254 , 1595 
D9 63087 DATA 160,0,24.32,240,2 

55, 104, 133.948 
BE 6308B DATA 175,104,133,174,1 

04.133,173.104,1100 
79 53089 DATA 133,172,96,401 



PROGRAM; AUTOSCROLL DEPIO 



04 100 REn 



"AUTOSCRCLL DEnD 



BY 

DEREK J TRIPP 
9/4/BB 



El 110 REM 
6E 120 REM 
47 130 REn 
CC 140 REn 
19 150 REM 
2F 160 REn 

69 170 REn DEMONSTRATES USE Q 
F "AUTOSCROLL" AND "PRINTAT " 
UTILITIES 
3B 190 REn 

33 130 REM TRY CHANGING 

'UPPER ' AND 'LOWER' 
37 200 REn IN LINES 290 

AND 290 BELOW, BUT 
78 210 REn NOTE THAT , I 

F UPPER IS LESS THAN 3 
6B 220 REn OR LOWER 

IS BIGGER THAN 23 
25 230 REn THEN YOU'LL 

RUN OUT OF SCREEN! 
7F 240 REn 

EC 250 SCROLL-52932: REn AUTOSC 

ROLL, UPPER , LOWER 
A3 260 KILL -53032: REn TURN 0 

FF AUTOSCROLL 
09 270 PRNTAT-53018: REM PRINT 

AT, LINE, COLUMN 
F9 280 UPPER - 5 

REn** TOP OF SCR 

OLL AREA 
43 290 LOWER - 20 

REn-- BOTTOM OF SCR 
DLL AREA — 

17 300 ; 

IB 310 IF PEEKCSCROLL + n-96 AND 
PEEKCSCROLL+85-207 THEN 360 

7B 320 ; 



99 330 REM IF THE BASIC LOADER 
IS APPENDED TO THE END OF TH 
IS PROGRAn, THEN USE:- 

AF 340 REM GOSUB 53039 

0F 350 REM IF YOU HAUE AN n/C F 
ILE OF "AUTOSCROLL" ON DISK, 
USE:- 

B9 360 REM LOAD "AUTOSCROLL ", 8 , 1 
49 370 : 

BF 380 OEG-190/3. 14159255 

71 390 OEF FNRCX)-INTC10000*X+. 

51/10000 
E0 400 PRINT"CCLR3 " ; 
64 410 SYS PRNTAT.UPPER-2, 1 
D3 420 PRINT" ANGLE" , " SINE" , 

" COSINE " 
17 430 FOR 1-1 TO 40 : PRINT"-" ; : 

NEXT 

2B 440 SYS PRNTAT , LOWER* 1 , 1 
6B 450 FOR 1-1 TO 40: PRINT"- " ; : 
NEXT 

64 460 SYS PRNTAT, LOWER+2 , 5 
14 470 PRINT'-CRUSONJ- PRESS 'CT 
RL ' TO SLOW SCROLL *CRU50FF3 

ft 

81 480 SYS PRNTAT , UPPER , 1 

A5 490 SYS SCROLL, UPPER, LOWER 

EC 500 FOR I-O TO 1 STEP .01 

D3 510 : PRINT FNRCDEG-I3, 

94 520 : PRINT FNRCSINCI33, 

AB 530 : PRINT FNRCCOSCD) 

FG 540 NEXT:PR1NT"CD0WN3 DEMO 0 

UER: PRESS ANY KEY TO ENOC DO 

WN3 , UP3 3 " : GOSUB 570 
F6 550 SYS KILL 
B2 560 END 

ftl 570 : GET OS : IF OS-"" THEN 5 
70 

C8 5B0 RETURN 



Balance Sheet 




PROGRAM; LISTING 1 



B2 0 POKEB09.234 

93 6 REn 

43 7 REM BASIC LISTING C13 M 

A I N PROGRAM — 

87 8 REM 

BD 10 REM 

BB 11 REM • 



8B 15 REn • 

BALANCE SHEET Ul .3 



E2 45 REM 



BB 20 REn • 



B9 25 REM 

BY STUART DAUIS 

C5 30 REM * 



B8 35 REn * 

CCD 19B8 
■ 

97 40 REn • 



6F 



50 IFPEEKC20000)<> 12THENP0KE 
20000, 12:SYS52248,2, "D'\8 
90 100 PDKE53265,11:POKE53260,0 
: POKES3281 , 2 : P0KE53272 , 31 : PO 
KEG4G,1:POKE198.0 
79 101 POKE53211, 160*44 
IE 105 SS-S2248:LP-5:SC-532BS:B 
A-53281 : BD-S3280 : 5-54272 : PR I 
NTCHRSCBVCCLR]"; 

72 107 DIMLSC40),DSC12),ZEC303, 
ZHSC30) , BLO0J , BLSC301 

3F 109 POKESC, 27 

44 110 SYSSS.S.1,0.0,0:FORL-1TO 

3000 : NEXT : POKES-1 . 45 I POKES , 1 

S0:POKES+6,240 
66 111 HDS-" : DATE : WITHDRAWN 

:PAID IN: BALANCE: " 
09 118 LIS-"CCJ]H«tm«««»t*i»»t««*««>t 

H « d \ « * M * (t * # !i H | - 1 N * I* B C C L D " 

E3 113 LOS-"CCYDESSSSSSSSSSSSSS 
SSS&SSSSSSSSSSSSffiSSSCCUD " 

HB 114 PDS-"* DATE "CSPC153DE 
TA I LSCSPC163 -WITHDRAWN-PA ID 
IN*" 

63 US PDS-PDS* "BALANCE •" 

Fl 116 POKES*24.10:POKEBA,6 

83 120 IFYRS-""THEN130 

40 125 GOTD150 

SE 130 SYSSS,6.8,S,16,0 

Bl 135 2-17:6OSUB1060:Q-4:PR-l: 

T-26 : 6OSUB1000 : YRS-KS 
23 150 P0KE196. 0^555,6,4,4,1, 

0 : POKEBD , 0 i POKEBA , 6 : POKESC . 2 

7 

D4 155 PR1NT"CHQME3 " ; :PRINTTABC 

31)"CD0WN3,S*3*' 
23 160 TP-1175:BT-1B15:6-TP:G0S 

UB2000 
8D 165 IFG-1175THEN450 

55 170 IFG-1855THEN400 
57 175 IFG-133STHEN850 
AE 180 IFG-141STHEN530 
8E 195 IFG-1435THEN500 
27 190 IF6-1575THEN840 
AB 135 IFG-1655THEN730 
90 200 IFG-1735THEN600 
7B 201 GOSUB205 

D5 808 IFPEEKC 197D-25THENP0KE19 

8.0: SYS64760 
8E 203 IFPEEKC 1973 O25THEN150 
CB 205 SYSSS,G,S,3.10,0:LP-300: 

GOSUB10S0:LP-5 
2E 210 POKEBA, 2: I FPEEK C 1373-39T 

HEN150 
C5 811 POKEBA ,6 

9C 815 IFPEEKC1973-64THEN210 

56 216 RETURN 

1A 249 REn ENTER DATA 

73 850 F-F*l:Pl-0;WT-0 

B4 258 POKE1S8,0:SYSSS, 6,15, 0,0 
,0: PO-0 

FA 855 Z-2:GOSUB1060:POKE1125.6 

4 : PR-1 : T-10 : D-B : GOSUB1000: DT 

S-KS:P0KE1125.32 
CD 860 Z-6:GOSUB1050:POKE1205,5 

4: POKE 198, 0: 0-38: T-l : PO-2: GO 

SUB1000:DES-KS 
A4 261 POKE1205.38 
0B 862 IFLENCDES J-38THEN8B0 
4E 870 Y-LENCDES):X-38-Y 
85 275 FORJ-1TOX:DES-OEI-CHRSC3 

23 : NEXT 

3C 280 POKE138.0:PRINT"CDOWN3": 
P0KE1365 . 64 : D-7 : T-12: GOSUB10 
00:PIS-KS:POKE1365,38 

FC 285 IFPIS-""THENPIS-"CSPC3D0 
.00" : PRINTTABC 18JPIS: GDT029S 

B4 230 0QS-LEFTSCPIS,4):WUS-RIG 
HTSCPIS.2): EES-OQS+UUS; PI-UA 
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LCEES) : PRINT 
28 235 P0KE1445,64:PRINT"C00lilN3 
" ; : GQSUB1000 t UTS-KS : P0KE1445 
,3? 

47 300 IFUTS-""THENLtTS-"E5PC330 
.00 ";PRINTTABC123UlTS:GOTO310 

A3 305 Q0S-LEFT$CUTS,43:liJUS-RlG 
HTSCWTS , 23 : EES-QQS*UU$ : WT-UA 
L(EES):PR1NT 

AE 310 PRINTTABC2S3 "CDOUN , CYAN3 
CORRECT? Y/NCUHITE,UP3" 

6D 3U POKE138.0 

GF 315 1FPEEKC1973-33THENPI-0:U 

T-0:F-F~1:GOTO150 
87 330 IFPEEKC1S73025THEN315 
35 32S 8LCF3-CBLCF-13+PI-WT3 
CA 330 BLSCF3-STRSCBLCF33 
F9 335 IFBLCF3>399933THENBLCF3- 
0 : F-F- 1 : LP-500 : GDSUB 1 050 : LP- 

5:GDTO150 
6F 340 GDSUB700 
69 345 PRINTTABC123BLSCF3 
DB 350 SY5SS, 6,3.6,8,0 
D3 351 PGKE19B , 0 : : 
AB 355 IFPEEXC1373-64THEN355 
6C 350 ZSCF3-"CCB3"+DTS+"CRUSON 

3@CRUSOFF3 "+UTS*" CRU5OND0C 

RUSOFF3 "*-PI S* "C RUSON30CRU5OF 

F3"+BLSCF3-*-"tCU3'' 
AS 3G5 ZZ$CF3- ,, »"+OTS-'"»"+DES+" 

• "+UTS*" •"*PIS*"""*BLSCF3+ 

it 0 it 

4E 370 GOTO150 
40 399 REfl SAUE 

EB 400 IFF<1THENLP-300:GOSUB105 

0:LP-S-.GOTO1S0 
53 405 POKE13B,0:SY5SS.6,7,0,0, 
0 : PR I NT "CHQriE , DOUN23 " ; : PD-0 : 
0-3 : T-53 : GOSUB1000 
BB 410 NMS-"0: "*KS+ "F ILE- "+YRS+ 
" . S . UJ" 

AF 450 0PEN15.B, IS : OPENS , 8 , 5 . Nn 

S:GO5UB800 
91 455 PRINTB5, F 

01 430 F0RJ-1T0F:PRINT*5,2SCJ3: 

PRINT tt5 , ZZSC J3 : NEXT 
06 435 PRINT»S,BLCF3 
51 440 CLOSE5:GG5UB800:CLOSE1S 
BD 445 BOTO150 
75 449 REn LOAD 

13 4S0 POKElBB.O^YSSS.G.e.S.ig 
.0 

FB 452 Z-21:GOSUB1060:Q-3:T-26: 

GOSU81000 
9D 4SS Nns-KS+"FILE-"+YRS+".S,R 

SB 4G0 OPENlS.B.lSiOPENS.B.S.Nn 
S 

7B 461 GOSUB800 

19 4G5 INPUTftS.F: F0RJ-1T0F: 1NPU 
T*5 , ZS C J 3 : I NPUTttS , ZZSC J) : NEX 
TJ 

BD 470 INPUTB5.BLCF3 

5E 475 CLOSES : GQ5UBB00 : CL0SE15 

DC 480 GOTO150 

F3 499 REH UIEU SHEET 

B7 500 IFF<1THENLP-300:GOSUB10S 

0:LP-5:GOTO1S0 
91 501 SYSSS, 5,16,0,0, 40. 25 
FF S04 POKESC.ll: : POKEBA . 0 : PR IN 

T"CCLR3"; :P0XESC,27 
19 SOS PRINTTABC 1 3HDS ; PR tNTTABC 

13LIS 

ES 510 F0RP-1T0F; PRINTTABC 15Z5C 
P3 : IFPEEKC 1973<>64THENG0SUBS 
54 

2A 515 NEXT : PRINTTABC 1) LOS 
C8 S1G IFPEEKC 197 3 -64THEN516 
F6 SIB POKESC.ll: :: :SYSSS, 6, 16. 

0,0,0: SYSSS ,4,16: 6OTO1S0 
BS 551 GOTO5S0 

Fl 554 POKE19B.0: IFPEEKC1373-64 
THENRETURN 



BD SSS G0T0554 

F0 559 REn WIPE SHEET 

3A 530 SYSSS , 6, 14,5,7,0 

8F 535 Z-9:GOSUB1060:Q-3:T-55:6 

OSUB1000 
4E 540 GOSUB205: IFPEEKC1973-39T 

HEN150 

FA 545 NnS-"S: "*KS*"FILE-"+YRS 
32 5S0 0PEN15.B, IS , NnS : GOSUB900 

:CLOSE1S:GOTO150 
3F 593 REn READ DIRECTORY 
SB 600 SY5SS,6,9,0,0,0:U-l:D-0 
90 605 PRINT"CH0nE,D0UN2:";TAB( 

73 ; YRS:P0KE646,6 
DF 610 0PEN1 ,8,0, "I:???FILE-"+Y 

RS 

55 615 GETH1,XS,XS 
CF 616 GET»l,XS,XS.XS.XS:D-0 
BC 617 IF5TTHENCL0SE1 : GOTO640 
AA 620 GETH1 , XS: I FXS- " "THENPRIN 

T:G0T061G 
86 621 I FXS-CHRS C 34 5 THENQ-NQTO 

60 622 IF0-16THENPDKE646, 1 
23 623 IFXS-"K"THENP0KEG46.6 

B9 625 IF0AN0D>3ANDD< 16THENPRIN 
TTABC43 ;X$; 

61 626 0-0*1 
45 630 GOTOS20 

A8 640 SYSSS, 6, 3, 11 , 16.0 
9A 651 POKE19B,0:POKE646, 1 
SF 655 IFPEEKC 137 3-64THEN65S 
35 660 GOTO150 

FB 670 PRINTTABC53 ;DSCU3 : RETURN 

50 700 AAS-RI6HTSCBLSCF3,23:NN- 

LENCBLSCF3 3 
C3 701 IFNN<4THEN715 
DF 702 IFNN-4THENS5S-LEFTSCBLSC 

F>,23 :BL$CF3-"CSPC3D"*SSS*". 

"+AAS 

SB 704 1 FNN-5THENSSS-LEFTSCBLSC 
F3 ,33 :BLSCF3-" "+SSS+" . "+AA 
S 

E3 70S IFNN-6THEN5SS-LEFTSCBLSC 
F3,43:BLSCF3-" "*SSS+" . "+AOS 

8D 70S IFNN-7THEN55S-LEFTSCBLSC 

F3 , 5) : BLSCF3-SSS+" . "-AAS 
44 712 RETURN 

34 715 IF LEFTSCAAS, 13-CHRSC323 
THENBLSCF)-"CSPC430.0"*RIGHT 
SCAAS, 1 3 : RETURN 

CD 720 BLSCF3-"CSPC430. "+AAS 
53 725 RETURN 
C9 723 REn RENAHE SHEET 
SO 730 SYSSS, 6,8, 19,0,0 
65 735 PRINT"CH0nE,D0UN23" ; :T-3 
5:0-3: GQSUB1000: US-KS : PRINT; 
GOSUB1000: IS-KS 
EA 740 NnS-"R: " * I S+ "F I LE- "*-YR5 + 

--■+US+"FILE-"+YRS 
2F 745 0PEN15.B, 15 , NnS : 6OSUBB00 

:CLOSE15:GOTO150 
58 800 INPUT»1S.X,XS 
7F 60S IFX<20THENRETURN 
Bl B10 CL0SE5:CLG5E1S:P0KEBA,2: 

SYSSS. 6, 10,2, 17.0 
ED BIS 2-13:GOSUB1060:PRINTTABC 
33 ; XS 

35 820 LP-800:GOSUB10S0:LP-10 
F4 821 SYSSS.6, 3.5, 20,0 

E7 B55 IFPEEKC 1973 -64THENB25 

FC 830 GOTO1S0 

DF 833 REn PRINT SHEET 

6D 840 IFF<1THENLP-300:GOSUB105 

0:LP-5:GOTO150 
46 841 SYSSS, 6,11, 15, 13,0 
7B 845 Z-15:GOSUB1060:PRINTTABC 

373"CS»3" 
FC B50 TP-1G61:BT-1301:G-TP:GDS 

UB2000 
A3 8SS IFG-TPTHEN150 
AC 856 IFG-1741THENI-1 ;K-F:GOT0 

900 



18 857 IFG-1821THEN3S0 

0B 853 REn CHANGE PRINT FORnAT 

5A 860 SYSSS, 6, 12, 14, 10,0 

4E B61 G0SUB832 

SB BSS Z-12:GOSUB1060;PRINTTABC 

3S)"CS»D" 
DA 866 TP-1S33:BT-1939-.G-TP 
60 867 GQSUB2000 
A2 870 I FG-TPTHEN840 
D5 875 IFG-1619ANDPEEKC1S993-32 

THENP0KE1599 , 155 : FC 1 3-1 : GOTO 

867 

ED 874 IFG-1G19ANDPEEKC 15993-12 
5THENP0KE1599 , 35 : F C 1 3 -0 : GOTO 
867 

ID B76 IF6-1699ANDPEEKC 16733-32 
THENP0KE1G79, 125 : FC2 3-1 : GOTO 
867 

C4 B7B IFG-1633ANDPEEKC16733-12 
5THENP0KE 1679 , 35 : FC23-0: GOTO 
867 

19 8B0 IFG-1773ANDPEEKC 17533-32 
THENP0KE17SS , 12S:FC33-1: GOTO 
867 

5A BB2 IFG-1779ANDPEEKC17593-12 
5THENP0KE1 759 , 32 : FC33-0: GOTO 
867 

AO B84 IFG-1B53AN0PEEKC18393-32 
THENP0KE1839, 125: FC4 3-1: GOTO 
867 

C4 886 IFG-1859ANDPEEKC1B393-12 
5THENP0KE1833 , 32 t FC 4 3-0 : GOTO 
867 

7D 888 IFG-1339ANDPEEKC13133-32 
THENP0KE1313 , 125 : FC53-1 : GOTO 
867 

06 830 IFG-1333ANDPEEKC13133-12 
5THENP0KE1313 , 32: FC53-0 ; GOTO 
867 

S0 891 G0T08G7 

A5 B32 IFFC13-1THENP0KE1S99, 125 

22 833 IFFC23-1THENP0KE1579.125 

23 894 IFFC33-1THENPQKE1758. 125 

68 895 IFFC43-1THENP0KE1B39, 125 

69 896 IFFCS3-1THENPQKE1919, 125 

0B 898 RETURN 

F9 900 POKE13B,0:OPEN4,4 

36 305 IFFC13-1THENPRINTB4, CHR 

SC27 3; CHRSC 1263 iCHRSC433 
BC 907 IFFC23-1THENPRINTK4, CHR 

SC273 ; "G" ; 
F5 909 IFFC33-lTHENPRINTtl4, CHR 

SC273 ; "E" ; 
S6 310 IFFC43-1THENPRINT#4, CHR 

SC273 ; CHRSC 1203 ;CHRSC433 
El 312 IFFC53-1THENPRINTH4, CHR 
SC273 ; CHRSC 120) ; CHRSC 493 ; : PR 
INTK4, CHRSC 27 3 i CHRSC 52 3 
C7 315 PRINTW4, "NUnBER OF RECO 

RDS IS";F 
BE 316 IFl>10RK<FTHENPRINTt*4. " 
PRINTED FROn RECORD", I ; "TO R 
ECORD";K 
BE 320 PRINTW4. CHRSC273 ; "- " ; "1 

" ; PDS ; CHRSC 27 3 j "-"j "0" 
28 321 IFF-1THEN935 
95 925 KK-K-1 

DC 930 F0RJ-IT0KK:PR1NTM4, ZZSC 
J) 

00 933 IFPEEKC 197 )<>64THENPRINT 
"4 , CHRSC 133 ; "••BREAK**" : CLO 

SE4:GOTO1S0 
2B 834 NEXT 

FB 335 PRINTB4, CHRSC273 ; "1 
";ZZSCK3 ;CHRSC27 3 ; "-». «©» 

33 340 PRINTW4, CHRSC273 ; "0" 

CF 94S CLOSE4:GOTO150 

C8 350 POKElSB.OzSYSSS.G, 13,2,1 
5,0 
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A0 355 PQ-l;Q-a : T-lG:Z-17:G0SUB 

10G0:GO5UB1000: I-UALCKS3 
78 960 IFK1ORI>FTHENSS0 
33 961 PRINT:GOSUB1000:K-UALCKS 

BF 965 IFK< IORK>FTHEN9S0 
04 970 PQ-0:GOTD900 
E5 1000 KS-" M : LO-0 

90 1001 FORL-1TO40:LSCL3-"":NEX 
T 

EF 1005 F0RJ-1T00 

□3 1080 GETLEC J) : IFLSC J3"""THEN 
1080 

3C 1051 IFPO-1THEN1041 
SC 1085 IFPO-8THEN1043 
AO 1083 IFPO-3THEN104G 
5D 1084 IFASCtLSC J33-17QRASCCLS 

CJ5)-890RASCCLS(J13-145DRfiSC 

CLSCJ33-1S7THEN1080 
CB 1086 IFLSC J3-CHRSC803THEN105 

J 

D3 1087 IFASC(LSCJ33<810RASCCLS 

CJ))>S5THEN1080 
BB 108B GOSUB1050 

AB 1089 IFPR-1THENPRINTTA8CT3 ;L 

S( J3 ; 
D7 1030 LQ-LD+1 
D7 1035 NEXTJ 

BC 1036 FDRB-1TQL0 i KS-KS+LSC B3 : 

NEXT 
9ft 1040 RETURN 

68 1041 IFASCCLSCJ3 3<480RASCCLS 

CJ33>57THEN1080 
84 1048 GOTD1086 

87 1043 I FASCCLSC J 3 3-13THENLSC J 

)-'• " : GOTO 1036 
10 1044 GOTD1084 

48 1046 IFA5CCLSCJ33<48QRASCCLS 

CJ33>47THEN1080 
18 1047 GOTO1087 
C9 1050 P0KE5+4, 17 : FDRP-1T0LP : N 

EXTP : POKES+4 , 16 : RETURN 
BB 1051 rFJ<8THEN1080 
S6 1055 LSCJ-13-"' , : LS£J3-"" : PRI 

NT "CLEFT , UIHITE3-CLEFTD " ; : J-J 

-1 : LD-LQ-1 : GOSUB10S0 : GOTO108 

0 

9A 1060 PRINT"CHOnE]" ; :FDRL-1TD 
Z : PR I NT " C DOWN ] " ; : NEXT ; RETURN 

DC 8000 POKE19B.0 

IF 8010 GETKS: I FKS- " "THEN8010 

Dl 8015 GO5UB1050 

10 8080 POKE1SB.0 

6F 8030 I FKS- "C DOWN] "ANDG-BTTHE 
NPOKEG , 38 : G-TP i POKEG , 64 : GOTO 
8010 

C3 8040 I FKS- "CUP] "ANDG-TPTHENP 
□KEG , 38 : G-BT: POKEG , 64 : GDTD80 
10 

Fl 8050 IFKS-"CD0UN3 "THENPDKEG 

38:G-6+80:PDKE6,64 
CE 8060 IFKS-"CUP:' , THENPQKEG ( 38 

: G-G-B0 ; POKEG , B4 
16 80BS IFKS-CHRS(13>THENRETURN 

0C 8070 IFKS-"-"THEN130 

IF 8071 IFKS-"D"ANDF> 1THENBLCF3 

-BLCF-1):F-F-1 
CE 8078 1 FKS-CHRS C 1 37 3 THENRUN 
80 8075 GOTO8010 



PROGRAM: LISTING 8 



41 10 BL-64:LN-50tSA-14333 

5B 80 FOR L-0 TQ BL:CX-0:FOR D- 

0 TO 15:REA0 fl : CX-CX+A : POKE 

SA-L*16*0, A: NEXT D 
A5 30 READ A: IF AXCX THENPR INT 
"ERROR IN LINE";LN-CL*10):5T 



OP 

40 40 NEXT L : END 

Al S0 DATA 68,96,78,855,0,855,0 

,855,0,855,0, 184,198, 18B.8S4 

, 198,8848 

B0 60 DATA 19B, 198,0.858, 198. 19 

8,858. 196, 198.858,0,68,96,19 

8,198,198,8678 
9E 70 DATA 98,68,0,848,804.198, 

198 . 198 , 804 , 848 , 0 , 854 , 198 , 19 

8,858, 198, 873B 

15 80 DATA 198,854,0,854,198,19 
8 , 858 , 198 , 198 , 198 , 0 . 68 . 95 . 19 
8.806, 198,8686 

4F 90 DATA 108,68,0,138,198,198 
, 854 ,198, 198, 398 , 0 , 184 , 84 , 84 
,84,84.1886 

58 100 DATA 84.184,0,854,8,6,6, 
198, 198. 184,0. 198.198,804.84 
B. 198, 1986 

59 110 DATA 199,198.0,198,198,1 
98 , 198 , 1 98 , 198 , 854 . 0 , 858 , 198 
,814,814,814,8834 

77 180 DATA 814,814,0,184,108,1 

08. 108, 108, 108. 108,0, 184,198 
, 19B, 19B, 198,8080 
81 130 DATA 198,184.0,858,138.1 

98,858,138,198,198,0,56.106. 

19B, 198,808,8564 
AF 140 DATA 184,54,0,858,198,18 

B, 198,858,804, 198,0,184, 138, 

198, 184,6.8316 
DG 1S0 DATA 6,858,0,854,84.84,8 

4,84,84,84,0,108, 108,108, 108 
, 108, 1166 
DC 160 DATA 108 , 68 , 0 , 198, 18B , 19 

8, 198. 19B. 184,84,0,814,814.8 

14,814,814,8378 
08 170 DATA 814,108.0.198,108,5 

8,56,56, 10B, 198,0. 198. 19B, 19 

8, 184.84, 1844 
9E 180 DATA 84,84,0,186.6,18,84 

, 48 , 96 , 1 86 , 0 , 63 , 840 , 840 , 63 , 8 

40, 1338 

16 130 DATA 840,83,0,184,6,198, 
840 . 198 , 198 , 858 , 0 , 840 , 60, 60 , 
840,60,8161 

B3 800 DATA 60,840,0,855,0,0,7, 

0,0,855,0,840,60,60,840.60, 1 
477 

68 810 DATA 50.840.0,0,0,0,0.0, 

0,0,0.48,48,48,48,0, 438 
SB 880 DATA 4B , 48 , 0 , 180 , 60 , 30 , 1 

5,15,30,60,180,855,0,0.855,0 
, 105G 

5C 830 OATA 0,0,0,0,0,0,0,855,0 

,0,855,855,0,0,855,84,1044 
AF 840 OATA 84,84,84,84,84,84,8 

4.855,0,0,855,854,0,854,0,85 
4, 1440 

B6 850 DATA 0,854,0,63,840,840, 

840 , 63 , 0 , 0 . 0 , 858, 60 , 80 , 50 , 85 
8,1784 

88 860 DATA 60, 60 , 0, 0 . 198 . 10B , 5 
6 , 56, 10B , 138 , 0 , 84 . 84 , 186 , 186 
,84, 1168 

40 870 DATA 84,0,0,0,0,0.3,0,46 

,48,36,0,0,68,0,0,878 
14 880 DATA 0,0,0,0,0,0,0,0,48, 

48,0,3,6.18,84,48,189 
07 890 DATA 96,198,0,184,198,80 

6.814,830, 1SB. 184,0,84,56,84 

,84,84,1734 
□0 300 DATA 84,186,0,858,6,84,1 

18 . 1S8 , 884 , 854 , 0 , 858 , 6 , 6 , 60 , 

6, 1544 

FD 310 DATA 6,858,0,804,804,804 

,186, 18,18, 18.0,854,198, 198, 

858,6,198b 
73 380 DATA 6,858,0,184,198,198 

.858,198,198,184,0,854,6.18, 

84,46, 3BB8 

01 330 DATA 36.96,0,184,198.19b 
, 184, 1SB, 138, 184,0. 186. 138, 1 



98, 13B, 186,8808 
89 340 DATA 8.6,0,0.48,48.0,48, 

48 , 0 , 0 , 0 , 48 . 4B , 0 , 48 , 34B 
B7 350 DATA 48,96,0,3,15,3,3,3, 

3,63,0,0,0,68.0,68,361 
8F 380 OATA 0,0,0,198,198,198,1 

98, 198, 138,848,0.858, 19B,6,6 

8,48, 1S66 
BA 370 OATA 0,48,0,3,15,63,855, 

8S5 , 63, IS, 3 , 63 , 840 , 840 , 85S , 8 

40, 175B 

34 380 DATA 840,840,0,840,60,60 

, 858 , 60 , 60 , 60 , 0 , 855 . 840 , 840 . 

855,840,8508 
71 390 DATA 840.855,0,840,60,60 

,840,60,60,840,0, 15,60,840,8 

40,840,8850 
Al 400 DATA 60, 15,0, 8S8, 0,0, 0,0 

, 0 . 858 , 0 , 8SS , 840 , 840 . 840 , 840 

, 17S4 

BC 410 DATA 840,855,0,138,840,8 
0 , 60 , 60 , 840 , 1 38 , 0 . 855 , 840 , 84 
0,855,840,8769 
0S 480 DATA 840,855,0,858,0,0,8 
40 , 0 , 0 . 858 , 0 , 855 , 840 , 840 , 85S 
,840,8469 
DA 430 DATA 840,840,0,858,0,0,8 
40,0,0,0,0, 15,80,840.840,840 
,1767 

IE 440 DATA 60,15,0.858,0.0,858 

,60,60,858,0,840.840,840,855 
,840.8168 

AF 4S0 DATA 840,840,0,80,60,60, 

858,60,60,60,0,855,3.3,3,3,1 
359 

F7 460 DATA 3,855,0,858,198,198 
, 198,198, 198,858,0,855.0,0,0 
,840,8817 

3C 470 DATA 840,63,0,858,60,60. 

60,60.60,840,0,840,840,840,8 
55.840,8310 

32 480 DATA 840,840,0,60,60,840 

, 884 , 60 , 60 , 60 , 0 , 840 , 840 , 840 , 

840,840.8444 
EE 490 DATA 840,855,0.0,0,0,0.0 

, 0 , 858 , 0 , 855 , 843, 843 , 843 , 843 

, 1374 

80 500 DATA 843,843,0,840,60,60 
, 60 , 60 , 60 , 60 , 0 , 855 , 840 , 840 . 8 
40,840,8301 
83 510 DATA 840,840,0,840,60,60 
, 60 , 60 , 60 , 60 . 0 , 63 , 840 , 840 , 84 
0,840,8103 
87 S80 OATA 840,63,0,840,60,60, 
60 , 60 , 60 . 840 , 0 , 855 , 840 , 840 , 8 
55,840,8313 
38 S30 DATA 840,840,0,840.60,60 
,840,0,0,0,0, 15,60,840,840,8 
40. 1B75 

74 540 OATA 63.15,0.138,840.50. 

60 , 858 , 840 , 60 , 0 , 855 , 840 , 840 , 

840,855,8418 
47 550 DATA 840,840,0,840,60,60 
, 60 , 840 , 840 , 60 , 0 , 53 , 840 , 840 , 

63,0,8046 
31 S60 DATA 0,855,0,840,0,0,840 

^60, 50,840, 0,855, 3, 3, 3, 3, 136 

0B S70 DATA 3,3,0,858,138,198,1 

98 , 198 . 198 , 198 , 0 , 840 , 840 , 840 

,840,840,8610 
04 580 DATA 840,63,0,60,60,60,6 

0 , 60 . 60 , 858 , 0 , 840, 840 , 840 . 84 

0.840,8115 
6E 590 DATA 63,7,0,80,60,60,60, 

60 , 840 , 198 , 0 , 843 , 843 , 843 , 843 

,843,8017 
4F 600 OATA 843,60,0,60,60,60,6 

0,80.60,840.0,840,80,15.15,1 

5, 1848 

ES 610 DATA 60.840.0.60,840,198 
, 1 98 , 1 98 , 840 , 80 , 0 , 840 , 840 . 84 
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0.63.7,5565 

sa eaa data 7, 7,0, 60,60,60,240, 

15B , 159,126.0,855,0,0,3,15,1 
091 

54 530 DATA 60,555,0,555,60,540 
, 195,0,0,552,0,555,195,195,5 
07.504,2361 
33 640 DATA 504,204,204,255,3,3 
, 243 , 51 , 51 , 51 , 51 , 504 . 504 , 204 
,504,207,2343 
SB 650 DATA 192,192,255,51,51,5 
1 , 51 , 243 , 3 , 3 , 555 , 53 , 540 , 507 , 
506 , 506 , 5259 
BC 660 DATA 207,240.63,540,60,5 
04, 12, 12,204,60,240.248,248, 
25S,243,51,25B7 
C7 670 DATA 51,63,0,255,195,519 
, 219,219 , 195 , 255 , 0 , 255 , SS5 , 2 
55,555,255,2946 
06 680 DATA 255.255.255,51,51,5 
1 , 51 , 51 , 51 . 51 , SI . 204 , 504 , 204 
,204,204,2193 
B5 690 DATA 204,204,204,24.24,5 
4 , 24 , 24 , 24 , 24 , 54 , 0 , 0 , 0 , 0 , 0 , 9 
04 



PROGRAfi; LISTING 3 



31 50 L-52224: E-0:PRINTCHRSC147 

) "PUTTING CODE IN nErtORY" 
AC 60 FaRX-0TD66:T-0:FQRY-0TD14 

Fl 70 READA: 1FA<0ORA>S55THEN100 

0A 80 PQKEL , A; L"L*1 ; T"T*A: NEXT 
47 90 READA: T-T-CINTCT/2S6)-256 

3A 100 IFTOATHENPRtNT-ERRDR IN 
LINE"1000-KXM0) "CHECKSUM I 

SN 'T" ; A : END 
96 110 PRINT1000»CX # 10)"D.K.-YE 

AH HAN' • " : NEXT 
4B 150 PRINTCHREC147J:PRINT:PRI 

NT "CODE LOADED" 
02 130 END 

EC 1000 DATA35, 553,174, 32, 215, 5 

25, 169,204, 133,252, 169,0, 133 

,251.169,104 
57 1010 DATA2S1, 162. 23S, 160,207 

, 32 , 216 , 255 , 95 , 32 , 241 , 183 , 13 

8,201.1,105 
4D 1020 DATA50B, 3, 76, 162,207,50 

1,S,50B, 3,76, 198,507,501,3,5 

0B, 171 

FB 1030 DATA3, 75,69, 206, 501,4,5 
0B , 3 , 76, B3 , 505 , 501 , 5 , 80S ,3.1 
E 

49 1040 DATA76 , 1 39 , 506 , 501 , 6 , 50 
8,3,75,46,507, 165, 1 , 160,49. 1 
40, 143 

11 1050 DATA1S6. 504, 139,501, 10, 

144.6.533, 10.239, 126,204.24, 

105,48.25 
55 10E0 DATA141, 157,204, 160,204 

, 169 , 1 1 5 , 35 . 30 . 17 1 , 1 65 , 58 , 50 

1,555,540,551 
14 1070 DAT A3 ,35, 194 , 189 , 76 , 134 

, 227 . 60 , 87 , 73 , 7B . 69 . 79 , 87 , 35 

,139 

5A 10B0 DATA69,BS,BS,79,BS,3S,3 
5,32.62,0,165,1,41,254,133,1 
25 

7C 1090 DATA1 ,96, 165, 1,9, 1, 133, 
1 , 96 , 169 , 0 , 133 , 551 , 170 , 1 73 , 1 
19 

SA 1100 DATA553.507, 10, 141, 153, 
204 , 172, 224 , 207 , IBS , 251 , 24 , 1 
05,0,144,192 
0C 1110 DATA1.232, 133, 2S1, 136,2 
08 , 243 , 155 , 251 , 24 , 105 , 5 , 144 , 
1 , 232,83 

CI 1120 DATA141 ,255.207, 145,226 



, 207 , 96 , 173 . 225 , 207 . 24 , 109 , 2 

16,207.141,242 
40 1130 DATA227.207, 169, 0,109,2, 

26 , 207 , 24 . 109 , 217 , 207 , 141 . 22 

8,207,205, 179 
BB 1140 DATA219, 207,96,32, 130,2 

04 , 169 , 1 60 , 1 33 , 254 , 1 69 . 0 , 1 33 

,253, 160, 15 
B5 1150 DATA0 , 177 , 253 , 240, 21 , 20 

5,250.207,240,51,160,3,177,2 

53,75,201 
C4 1160 OATA500, 177,553, 133,554 

,104, 133, SS3, 76, 224, 204, 32, 1 

37,204,56, 136 
FC 1170 DATA96, 32. 137,204,24,96 

, 32 , 541 , 183 , 142 , 220 , 507 , 138 , 

501,0,161 
CA 11B0 DATA50B,7,16B,10,104,10 

4 . 76 , 75 . 504 , 96 , 35 , 541 , 1B3 , 14 

5,221,70 
22 1190 DATA207, 138,201 ,40, 144. 

5 , 162 . 4 , 76, IB , 205 , 32 , 241 , 1B3 

,142.6 

E3 1500 OATA555,207.13B,201.2S, 
144.5, 152,5,76, 18,205,96, 173 
,221, 106 

F6 1210 DATA207. 24. 109.223.207, 

170,202, 13B.201, 40, 144,5, 162 

,8,75,154 
EE 1220 DATA1B , 205 , 173 , 222, 207 , 

24, 109,224,207, 170, 202 , 139, S 

01,25,144,221 
SC 1230 DAT AS, 162,9,76, 19,205,9 

6, 173,222,207,133,20, 169,40, 

133, 132 

11 1240 DATA21 ,24, 169.0, 162.9,1 
06, 102,20,144,3,24, 101 ,21,20 
2.B3 

46 1250 DATA16. 245, 133.21,165,2 
0 , 24 , 109 . 521 , 207 , 144 , 2 , 230 , 2 
1, 141, 163 
4C 1260 DATA229.207, 141 ,231 ,207 
, 173,218,207,24, 101,21, 141,2 
30,207,169.202 
96 1270 DATA216, 24, 101,21, 141,2 
32,207,95, 169, 160, 133,254,14 
1.217,207.15 
0A 1260 DATA169, 0.133,253,141,2 
15 , 207 , 32 . 130 , 504 , 160 , 0 , 177 , 
553,540. 11 
66 1590 DATA45, 500, 177,553, 141 , 
553 , 507 , 500 , 177 , 553 , 141 , 554 , 
507,32,144,65 
E9 1300 DATA204, 32, 187.204, 160, 
3, 173,227.507,75, 145,253, 141 
,216,207, 127 
6D 1310 DATAS00. 173, 228,207. 145 
,253, 141,517,507, 133,554, 104 
, 133.253,76. 164 
94 1350 DATA174, 505, 32, 137.204, 
96,142.248,205. 140,249,205, 1 
74 , 224 , 207 . 82 
7A 1330 DATA173.523. 207, 141,235 
,207, 160,0,32,0.0, 169,40,24, 
101,176 

70 1340 DATA251, 144,2,230,252, 1 
33 , 251 . 173 , 223 , 207 , 24 . 101 , 25 
3,144,2,BS 
A2 1350 DATA230, 254, 133,253,205 
,50B, 519. 96. 177,251,75.177,5 
53,77,534,50 
56 1360 DATA207.145,551,104,77, 
534 , 507 , 145 . 553 , 500 . 206 , 235 , 
207,208,234,97 
AF 1370 DATA96 , 177 , 253 , 77 , 234 , 2 
07 , 1 45 , 251 , 200 , 206 , 535 , 507 , 5 
08,543,96, 19 
B5 13B0 DATA177, SSI, 145,553,500 
, 506 , S3S , 507 , S0B . 246 , 96 , 159 , 
0, 141 ,0,230 
4B 1390 DATA160, 141,216, 207 , 169 
, 160 , 141 , 217 , 207 , 96 , 32 , 5 , S0S 
,32,513.153 
FC 1400 DATA504 . 144 , 5 , IBS . S , 76 . 



73,504,32, 130,504, 160,3, 177, 
553.35 

30 1410 DATA133,551,500,177,S53 
, 133,555, 160,0, 177 , 551 , 145 , 5 
53,530,551.50 
AO 1450 DATA20B, 2,230,252, 230, 2 
53 , 208 , 5 , 530 , 554 , 155 , 555 , 505 
,219.207, 101 
CE • 1430 DATA208.S33.3S, 1S7.S0S, 
95 , 35 , 5 , 505 , 35 , 54 , 505 , 35 , 84 1 
,183.98 

98 1440 DATA14S, 353,207,202, 138 
, 201 , 40 , 144 , 5 , 165 , 5 , 76 , 75 , 50 
4,32,62 

63 1450 DATA241 . 183, 142,254,207 
,202, 138,201,55, 144,5, 165,7, 

76, 72,237 
37 1460 DATA204,32,57,20S,32,21 

3.204, 176,5, 162, 3, 76,72,204, 

32,141 

30 1470 DATA144.204.32, 1B7,S04, 
144,5, 165, 11,76, 75,504,35,96 
,305,343 

CB 14B0 DATA 173 ,216, 207 , 133, 2S3 

,173,217.207, 133,254, 160.0.1 

73.230,307.165 
3D 1490 DATA14S. 553, 500, 173,333 

,507, 145,553,500. 173.554,307 

, 145,353, 500, 185 
CI 1500 DATA173 , SS7 , 307, 141 , 316 

, S07 . 145 . 5S3 , 500 , 173 , 559 , 207 

,141,517,507, 155 
Dl 1510 □ATA145, 553, 165,553,54, 

105,5, 144.5,530,554. 133. 5S3. 

173,339.64 
35 1530 DATA507, 133,551. 173.330 

,507, 133,353, 165,58, 160,206, 

32.230,205,79 
4E 1530 0ATA173. 231, 207, 133,251 

, 173 , 232 , 207 . 1 33 , 252 , 32 , 235 , 

505, 169,0,74 
99 1540 DATA16B, 145,253,96, 32,5 

, 205 , 32 , 24 , 205 , 32 . 24 1 , 1 B3 , 13 

8,41,8 

E9 1550 DATA1S8, 141 ,534,507, 13B 
. 41 , 54 , 14 1 , 533 , 507 , 32 , 213 . 20 
H, 144,5,84 
3F 1560 DATA162,2,76,72,204,32. 
130,304, 150, 1,177,553. 141 ,33 
3,307,555 
E0 1570 DATA300,177,353.141,554 
, 307 , 35 , 1 37 , 304 , 35 , 57 , 505 , 35 
,96,505, 154 
04 15B0 DATA159,5,S4,101,553,14 
4 . 5 , 530 , 354 , 133 , 353 , 35 , 130 , 3 
04,173,59 
66 1590 DATA359. 507, 133,251 , 173 
, 530 , 307 , 1 33 , 555 ,173,533. 307 
,208.7,163,545 
4D 1600 DATA44, 160,505,76, 145,5 
07 , 165 , 31 , 160 , 306 , 33 , 530 , 505 
, 173,531 ,S07 
BB 1510 DATAS07, 133,551, 173,535 
, 507 , 133 , 555 . 35 , 336 , 505 , 35 , 1 
37,504,96,556 
77 1650 0ATA35, 553, 174,35.515,3 
35,38. 130.304,169,160, 133,55 
5, 169,0, 139 
AE 1630 DflTfil33,551. 169,851, 174 
. 316 , 807 ,175,217, 307 , 332 , 20B 
,1,200,32,110 
IE 1640 DATA216.2S5, 32, 137,204, 
96 . 32 , 353 , 174 , 32 , 212 , 225 , 169 
,0, 170. 159 
9B 1650 DATA160, 160,32.213.255, 
32 , 157 , 205 , 95 , 0 , 160 , 4 , 192 , 0 , 
0, 130 

2D 1660 DATA0, 0,0, 0,0, 0,0,0, 0,0 
,0,0,0,0,0.0 
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BE 
F3 
SB 
AE 
EB 

BC 
71 



B4 

9E 
EE 
46 
BS 

02 
2E 

FB 

2A 
90 
50 
AF 

C4 



OS 
11 
4E 
EA 



BC 
CA 
AA 



01 



85 

FC 
CB 
Bl 

05 



F7 

SE 
F9 
0B 



0b 



□s 



•U1NDOUIS-CREATOR**- 



1 REn 

2 REn 

4 REH 

8 5YS52248.3 

9 POKE532B0,0:PRINT"CBLACK,C 
LR] " ; :G0SUB45 

10 P0KES3272,31 

20 PR1NTTABC4)"CUHITE,D0UN2. 
CJ3lt*t#*ttttttt4«tf*tft»*tttfKtfftltHltHttltH«t 
WMMWCCL3" 

21 PRINTTABC4)"CUP,CBa C5C, 
SD,SA,SB,SU,SX,5A,SB.S+,C-,S 

E.SF.SI.SJ3 ccg.c+.so.sp.si 
,sj,si,sj.cn,C£3 ccu3" 

22 PRINTTABC41"CCB3 MtttltiHNfl 
NHHttHHHUnNttttMtDIHHHH CCU3 " 

23 PRINTTABC4)"CUP,CB,SPC12, 
CQ,CD3<> . --CSFC11.CU]" 

24 PRINTTABC4r , CCB,SPC30,CU3 

25 PRINTTABC4VCUP.CB3 CCO.S 
133 C9E.SH,SA,SB,CQ,CD,SQ,SR. 

C6, C-.S-. PI .SK, SL.Cn, C£] <>C 
K3C3 CCU3 " 

26 PRINTTABC43"CCY3S£££S£$S£ 
SS££S££SE£££S5SESS£SSCCU3 " 

29 PRlNTTABC4i"CUP,CJ3»tttt*#Mtl 

IHHMMt#tt#ttlHMHNHHHNHUMHHt#CCL3 
■ 

30 PR1NTTABC4J"CCB,C-,SSPC,C 
T , CB , 9- , P I , Sn , SN , CT , CB , 5A , SB 
,SY,5Z3 CCZ^S.CT.CB.SQ.SR, 

cn , ct , cn , C£ , s i . sj , s+ . c - , cu ] " 

31 PRINTTA8C4)"CUP.CB,SPC30. 
CU3" 

32 PRINTTABC4)"CCB,SPC13,SC, 
SD,CE.CR,SPC13,CU3" 

33 PRINTTABC43"CUP,CB,SPC30, 
CU] " 

34 PR1NTTABC41 "CCB3 CCG.C+, 

cn , ct , S£ , cn , sa . sb , ct , ce , cn , c 

£3 C SB . SH , SA , SB , CD . CD , SQ , SR 
.CG,C+ 1 5PC4,CU3" 

35 PRINTTABC4r'CUP,CY]SSSSSS 
£££S£SSSS££S£SSS££S£££££CCU3 

40 SYS52248. 5. 1,0,0,40.25 

41 GOTO 100 

45 AS-"CCX403" 

46 FQRL"0TO23: PRINTAB; : NEXT- 
PR 1 NT"CHOnE3 ": FORL-1984TO202 
3:POKEL, 125: NEXT 

50 RETURN 

100 PRINT"CUIHITE,CLR3"- 

101 PRlNT"CCJ]»tH(.tt«#«B I iM«««fl 
RttfttttttttttttttftCCLJ* 1 

102 PRINT"CCB, S! .SJ.S+.C-, Cn 
.C£,SI.SJ,CT t CB3 CCE.CR.S1.S 
J t SA,SB,CT,Ce3 CCU]- 

103 PRINT"tCY3£££S£S££SSSSSS 
SS££S£S5EE£C CU] " 

104 SYS52248, 5, 2,0. 0,27,3 

110 PRINT"CUHITE,CLR]"- 

111 PRINT "CCJ3ttNV#tt«#######H 
*»######## CCL3 " 

112 PRINT"CCB,C-,SSPC, CT.C0, 
SI . SJ , CG , C* , CG, C»3 CSA,SB,S+ 
.C-.CE.CR3 CSU.SU, SI, SJ , CE , C 
R.CU3" 

113 print"ccy:ssssssesssssss 
sesssssssbc cu3 " 

114 9Y552248, 5,3.0,0. 26, 3 
US PRINT ,, CUHITE,CLR3"; 

116 PRINT"CCC3 1 CSY , 5Z, SA SB, 
Sa,SR,S*,C-3 CSY.SZ.SI.SJ.S- 
, C- , St , CN 3 005000 B@ • CCF3 * 

117 PRINT''eCJ3tltMHMtMIMMM»llti» 
»«i>iit| B( tfttii., a >i; .;; ■ 

118 PRINT"CCB, SPC3.SU, SX. S- 
P1,SA,9B.SG,5H3 CCG.C-.SO.SP 
,SI ,SJ, SI .SJ.Cn, C£,SPC5,CU3" 



D3 
BB 



C5 
31 



C7 
DF 



C9 
09 



CB 
BE 



3D 
98 



3F 
11 



41 
92 

9D 

41 
20 
AE 

73 



68 

BC 
0E 
82 

DF 

F9 



D6 

9E 
FC 
CD 

65 

EF 



6C 

9B 
3A 
EB 

93 

6A 



119 PR1NT"CCB.SPC27,CU3" 

120 PRINT"CCB.SPC3,CG,C+,SA, 
SB , CO. CD , SI , SJ3 CCG.C+.SO.SP 
,91 .SJ, SI , SJ.Cn, C£,SPC5,CU3" 

121 PRINT"CCB,SPC27,CU3'' 

122 PRINT"CCB,SPC3,SI,SJ,S+, 
C-.Cn,C£,Sl,SJ,CT,C03 CSG.SH 

, sa , sb . cn , Cfc , sa , sb , spcs , cu: 

123 PRrNT"CCB,SPC27,CU3" 

124 PRINT"CCB,SPC3,CZ,C5,SQ. 
SR,C*,SSPC,SI ,SJ3 CCG,C*,SO, 

sp.si .sj, si ,5J, cn.ee, spcs, cu 

125 PRINT M CCB,SPC27,CU3" 
125 PRINT"CCB,5PC3,CQ,CD,SQ, 
SR.SI ( SJ,CZ,CS3 CCG.C+.SO.SP 
, SI , S J , SI , S J , Cn , C£ , SPCS , CU3 " 

127 PRINT"CCB,SPC27,CU3" 

129 PRINT-CCB3 C C" , SSPC, CT , C 

0. 5Q,SR,S+,C-,Cn,C£3 CCG.C*. 

SD.sp.si.sj.si.sj.cn.ct.spcs 

. CU3 " 

129 PR1NT"CCB,SPC27,CU3" 

130 PRINT"CCB , CT, CB , SI .SJ3-C 

S*.C-,SA,SB,SY,SZ,SI,SJ3 CCG 

, c* , so , sp , si , sj . si , sj , cn, ce . 

SPC3.CUJ" 

131 PRINT"CCB,SPC27,CU3" 

132 PRINT-CCB.CO.CD.SD.SR.SI 
,SJ,CZ,CS3 CSE,SF,S-,PI,5-».C 

133 PRINT"CCB,SPC27,CU3** 

134 PRtNT"CCB,SPC9,SI.SJ,CP 

ca . so . sr , cn , C£ , SPC10, cu: 

135 PRINT"CCY3£SS££SSSS£SSS£ 
SSS55ESESSSESCCU3 " 

13G 9YSS224B,S.4,0,0,2S.20 
150 PRINT-CWHITE.CLR}"; 

152 PRlNT"CCJ3l»imtlMII«nitHtt»««| 
tfNttll»NNttii**tt«lltf|i*HCCL3 H 

153 PRINT-CCB3 CBLACK.SA.SB 
CT.C0.SI.SJ3 CCE,CR,5-,PI,S£ 
,CN3 CCG.C+.Se.CN.CT.CB.SI.S 
J3 ? CCE.CR3/CS+.C-.UIHITE3 C 
CU3 " 

154 PRINT"[CY3SS£SS£SSSSSS£S 
BSSSSSSSSSSSBSBSSSCCU3 " 

155 SYSS524B, 5,5,0. 0,34,3 

160 PRINT"CUHITE,CLR3 , ' ; 

161 PRINT"CCC3 'LOAD SHEET000 
0000000003 'CCF3" 

162 PRINT"CCJ3tt««»Mti#»iiHt»»ttB 

MHHNHHHMMI *CCL3 " 

163 PRINT H CCB,SI ,SJ,S*,C-,Cn 
,C£,SI,SJ,CT,C03 CSY,SZ,5-,P 

1, s«-,c-.cn,c£,so,sp] — ccua 

164 PRINT"CCYJ£SSS££S££E£££S 
SSS£S£E£SS£CCU3 " 

165 SYS5224B,S,6 1 0 1 0,27.4 

170 PRINT"CldHITE.CLR3 n ; 

171 PRINT"CCC3 'SAUE SHEET000 
000000000S ' CCF3 " 

172 PRINT'CCJ3<MMMl1 W t» »WW# #<l 
ttHNttttt<HN«KMCCL]" 

173 PRINT"CCB,SI,SJ,S*,C-,Cn 
.C£,SI,SJ,CT,C03 CSY ( SZ,S-,P 

i.s-.c-.cn.c^.so.sp] — ccu] 

174 PRINT"CCY3££SS£BSSES££££ 

BEsssssssasccu] " 

175 SYS52248,5.7,0,0 1 27,4 
160 PRINT"CUHITE,CLR3" i 

181 PRINT"CCC3 'RENAnE SHEETS 
00000000' CCF 3" 

182 PRINT"Ctt3»«MNNW«*«ftt*« 
•""t*##«HMCCL3" 

183 PRINT"CCB3 ENTER OLDNAnE 
: CSPC4 , CU] " 



4B 

2B 

20 
38 
AD 

CA 

C4 



A2 
A3 
5C 
50 
IE 
IF 
AS 
A9 
AA 
AB 
A4 
AS 
A6 
ED 

BS 
14 
6A 



9E 

AD 
F4 

EA 
12 
32 



B6 
39 

B0 
9C 

82 
74 

BC 
BB 

84 

E4 
3E 
61 

BC 

AB 

BC 
3B 

8E 
50 

9B 
73 

9A 
33 

94 
Dl 

EC 

D9 
A7 



184 PRINT-CCB3 ENTER NEUNAnE 
: CSPC4 , CU] " 

1B5 PRINT"CCY3S£SS£B£S££S£££ 
SasSSSSESC CU3 " 
1B6 SYS5224B, 5,8. 0.0.25. 5 
130 PRINT"CUHITE,CLR3" ; 

191 PRINT"CCC3 'D'lSPLAY CONTE 
NTS'CCF]" 

192 PR I NT*CCJ3tMMMNMHMMHMMMHI 
t*fttt#CCL3" 

193 PRINT"CCB3 YEAR: CSPC12. C 
U3" 

194 PRINT"CCB,SPC18,CU3" 

195 PRINT"CCB.SPC18,CU3" 

196 PRINT"CCE,SPC18.CU3" 

197 PRINT"CCB,SPC1B,CU3" 

198 PR INT"CC8 . SPC18 , CU3 " 
193 PRINT"CCB.SPC1B,CU3" 

200 PR1NT"CCB,SPC1B,CU3" 

201 PRINT"CCB,SPC18,CU3" 

202 PRINT"'CCB t SPCie,CU3" 

203 PRINT"CCB.SPC1B,CU3" 

204 PR1NT"CCB,SPC1B,CU3'* 

205 PR!NT n CCB,SPC18,CU3" 

206 PRINT"CCB,SPC1B,CU3" 

207 PRINT"CCY3£SS£SSS£BS££S£ 
BESBCCU3" 

20B 5YS52248, 5,9,0, 0,20, 17 

210 PRINT-'CUHITE.CLR]"; 

211 PRINT"CCC3 ' CS6. SH . SO, SR , 
C6.C,SU,SU3 CSI.SJ.CT.CB.CT 
,CB,S-.PI.CT ( C03> ' CCF3 " 

212 PRINT' , tCJ3*t####BttlH.«tBRWt, 
• »tMHW**CCL3" 

213 PRINT*'CCB l SPC22,CU3" 

214 PRINT"CCY3£S££SB££S££E££ 
SESSSESSCCU3" 

215 SYSS2248.S, 10,0,0,24,4 

220 PRINT"CUH1TE,CLR3 ,, ; 

221 PRINT"CCC3 ' CC- . SSPC, CT, C 

e.so.SR.S'.c-.cn.ct] csy.sz, 

SI.SJ ( 9*,C-,S£.CN3B'CCF3" 

222 PRINT ,, CCB,SPC22,CU3" 
PRINT"CCB3 AB0RTCSPC16.C 



223 
U3" 
224 
225 



PRINT"CCB,SPC22,CU]» 
PRINT"CCB] PRINT UHOLE S 
HEETCSPC4 , CU3 " 

226 PRINT"CCB,SPC22.CU3" 

227 PRINT"CCB3 PRINT PART 5H 
EETCSPC5.CU3" 

228 PR I NT " C CB , SPC22 , CU3 " 

229 PRINT"CCB3 CHANGE PRINT 
FORnAT CCU3" 

230 PRINT"ECY]SSBSS£SS£ES£EE 
SBSEBESECCU3" 

235 SYSS224B, S, 11 , 0 , 0. 24 . 10 

240 PRINT"CUHITE,CLR3" ; 

241 PRINT"CCC3 'CHANGE PRINT 
FORnAT0'CCF3" 

242 PRINT"CCJ3###*»###W#|HH| 

243 PRINT"CCB3 PRINT nENUCS 
PC10.CU3" 

244 PRINT"CCB,SPC22 1 CU3'' 

245 PRINT"CCB3 PRINT SLASH 
ZER0CSPC4, CU] " 

246 PRINT-CCB.SPC22.CU3" 

247 PRINT"CCB] PRINT BOLDFA 
CEC SPC6 , CU] " 

248 PRINT"CCB,SPC22,CU3" 

249 PRINT"CCB3 PRINT EHPHAS 
ISEDCSPC4 , CU3 " 

250 PRINT"CCB,SPC22,CU3" 

251 PRINT"CCB3 PRINT NLOCSP 

cxi.cva" 

252 PRINT"CCB.SPC22,CU]" 

253 PRINT-CCB] PRINT ITALIC 
SCSPC7.CU3" 

254 PR1NT"CCY]EES£SSS£SSS£S£ 
SSSSSBEBCCU3" 

255 SYS5e24B,S, 12,0,0.24, 14 
260 PRINT"CUHITE,CLR]-: 
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37 261 PRINT"CCC] 'PRINT PART SH 

EET'CCFD" 
F3 362 PRlNT"CCJ3#**(M#l*l»'*'*»t*W* 

7B 263 PRINT"CCBD FROM RECORD - 

-CSPC3, CU] " 
C3 264 PRINT B CCB ( SPC3:T0 record 

— cspc3,cu:" 
39 285 print"ccy1£ssss5ssssssss 

esssccud " 

3A 566 SYS5224B, 5, 13,0.0, 20,5 
AD 270 PRINT"tUHITE,CLRD"-, 
18 871 PR1NT"CCC3 'WIPE SHEETSBQ 
0(300(500000 'CCFD" 

E6 272 PRXNT M CCJ3tt*WHmHlfHHHIffH 
nwuintunauBBC CI. : " 

10 273 PRINT"CCB,5I ,SJ,S+,C-,Cn 
,C£,S1 .SJ.CT.CQD CSY,S2,S-,P 

i,s+,c-,cn,ce,50 ( 5P] — ccu3 

tl 

A3 274 PRINT"CCY3SSSSS£SSS5SSSS 
SSSSSSSSSSSCCU]" 

4A 275 5Y55334B, 5, 14,0,0,37,4 
53 2B0 PRINT"CUHITE,CLR3"i 
08 281 PR!NT"CCC] "CSt ,SJ,S*,C-, 
CM.C£,5I,SJ,CT,CeD CSG,5H,5A 

, sb , cn , C£ , sa , SB]seeeG@eeGQQG 

00000 'CCFD"; 
72 282 PRINT"tCJ3Nft«flflHMNtfMfftlff« 

tt#»«t«IHHHHHHHHHHHHHHHH|NlCCL3 

F3 3B3 PRINT"CCB,SPC33DATE: 

CSPC31 , CU] " ; 

30 284 PRINT"CCB,5PC3B,CU3"; 

45 285 PRINT"CCB,SPC33DETAILSCS 

PC28,CUr , : 
32 2B5 PRINT"CCB,SPC3B,CUJ"; 
F3 287 PRINT"CCB: 

CCU] 

FC 288 PRINT"CCB,SPC3B,CUD"; 

B0 289 P R I NT '* C CB . SPC3 3 PA I D IN:- 

. — CSPC4,CB,CJ3»#t»SB»ttS»t» 

**tt»tCCL , UHITE3 CCU3"; 
18 290 PRINT"CCB,SPC22,CB,CB,C7 

]RENENBER TOCCBD CCU.WHITED 
CCU3"; 

E5 231 PR1NT"CCB] WITHDRAWN: 

-. — C5PC4,CB,CB,C73TYPE OUER 
CC8,SPC3,CU t UJHITE] CCUD"; 

35 292 PRINT"CCB,5PC22,CB,CB,C7 
DDECIHAL POINTCCB.CU, WHITE: 
ZCV3"; 

CO 293 PR 1 NT " C CB , SPC3 3 BALANCE : C 
5PC1 1 , C8 , CY:SSSSSSS£SS5SSCCU 

, white: ecu:"; 

40 294 PRINT"CCY3SESSSSSS£SSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSCCUD 

Bl 295 SY55334B. 5, 15,0.0,40, 14 



PROGRAH: LISTING S 



B0 10 BL-5: LN-50:SA-B132 

SB 20 FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15:REAO A: CX-CX+A > POKE 

SA*L-l6*0 , A : NEXT 0 
A5 30 READ A: IF A><CX THENPRINT 
"ERROR IN LINE";LN*CL*103 : ST 

OP 

40 40 NEXT L : END 

FB 50 DATA 190,0,0,66,67,63,0,0 
,0,0, 163, 11 , 141. 17.206, 163,1 
107 

BF B0 DATA 1,188,152.8,32,186.2 

55 , 152 , 3 , 160 . 32 , 32 , IBS , 255 , 1 

69,0, 1814 
61 70 DATA 133,10,32.213,255,16 

2 , 4 , 160 , 32 , 169 , 1 , 32 , 183 , 2SS , 

163,0, 1816 
Bl 80 DATA 133,10,32,213,255,16 

2. S. 160 . 32 , 163 , 1 , 32 , 189, 2SS , 



169,0,1817 
08 30 DATA 133,10,32,213,255,16 
9.0. 133,45,169,61,133,46,32, 
32, 166, 1683 
30 100 DATA 32,142.166,76.174,1 
67,0,0,0,0,0,0,0,0,0,0,757 



PROGRAM: LISTING 6 



B9 10 REN* 



'LISTING 6' 



B0 15 REN 

11 20 REN- — -MACHINE CODE BOOT 
35 2S REN 

21 50 F0RA-732TO767:READX:P0KEA 
,X:NEXT 

BO 100 DATAB5, 169,6, 141, 134,2,3 
2 , 6B , 229 . 163 , 1 , 168 , 162 . 8 , 32 , 
1B6,2SS 

D3 105 DATA162, 220, 160,2, 169, 1 , 
32 , 189 , 255 , 169 , 0 . 1 33 , 10 , 32 . 2 
13,255 

74 110 DATA7G.10.32 



PROGRAM LISTING 7 



BB 10 REN' 



•LISTING 7 1 



80 15 REN 

9F 20 REN-SAVER FOR BOOT PROGRA 
N* 

96 25 REN 

63 50 SYS57B12"5HEET",8, 1 

E7 60 POKE193,220:POKE194,2 

70 70 P0KE174,4:P0KE175,3 

C4 80 POKE770,221:POKE771.2 

6B 90 SYS62357 

5E 100 POKE770,134:POKE771,164 



Icon 64 




PRnfiiwi- izzjNBH - Has 



E2 1 REN- YOU SHOULD ENTER THE 

FOLLOWING 
64 2 REN- BEFORE LOADING THIS P 

ROG. 
B6 3 REN- 

11 4 REN- POKE43,0:PQKE44,32:PO 

KE8191 ,0:NEU 
B4 S REN- 

E6 10 BL=57:LN=50:5A-£049 

5B 20 FOR L-0 TO BL:CX-0:FOR D- 

0 TD 15: READ A : CX-CX+A: POKE 

5A+L-16+D , A: NEXT D 
77 30 PRINT"."; : READ A: IF A><CX 
THENPR I NT "ERROR IN LINE" ; LN 

+CL*103 :5T0P 
86 40 NEXT L 

D2 SO DATA 11,8,0,0,158,50.48,5 
4.49,0,0,0, 183,12,133,44,736 

IB 80 DATA 162,0,142,0,12,142,1 
, 12, 142,2,12,183,88.9, 157,11 
3, 1183 

BD 70 DATA 2,232,224,4.208.245, 
134, 198. 162,0, 189.72,3, 157,0 
,208,2044 

8C 80 DATA 232,224,16,208,245,1 
62 , 0 , 189 , 64 , 9 , 157 „ 248 . 7 , 232 , 
224 , 8 , 2225 



64 90 DATA 208,245,32,90.8.234. 
96. 120, 169, 121, 141 ,20,3, 183, 
B, 141, 1B05 
24 100 DATA 21,3,88,169,255,141 
, 21 , 208 , 96 , 162 , 0 , 183 , 14 , 1S7 , 
33,208,1751 
05 110 DATA 232,224,8,208,248,3 
6, 120, 153,43, 141,20,3, 163,23 
4.141,21,2083 
68 120 DATA 3,88,169,0,141,21,2 
08,96, 173,0,220,201 , 119,240, 
21,201 , 1901 
IB 130 DATA 123,240.30.201,111, 
208 , 3E , 32 , 90 , 8 , 156 , 252 , 169 , 1 
, 157,33, 1863 
FC 140 DATA 208,75,193.8.238,0, 
208 . 173 , 0 . 208 , 201 , 242 , 240 , 3 , 
76, 172,2246 
60 150 DATA 8,208,0,208,173,0,2 
08 . 201 . 26 , 240 , 233 . 173 . 0 , 208 , 
201,26,2111 
ED 150 DATA 176,3.76,105,3,201. 
51,144.3,76,139,8,163,1,133, 
252, 1507 

65 170 DATA 238,33,208,78,36,3, 
201 , SB . 176 , 3 , 76 , 218 , 8 , 201 , 83 
, 144, 1834 

80 1B0 DATA 3,76.218,8,153,2,76 
. 131 , 6 , 201 , 90, 176, 3 , 76, 237 , B 
.1542 

IE 130 DATA 201,115,144,3,76,23 

7,8, 169,3,76, 131,8,201, 122, 1 

76,3, 1733 
50 200 DATA 75,0,3,201.147,144, 

3,76,0,9, 169,4,76, 191 ,8,201, 

1314 

Bl 210 DATA 154,176,3,76.19.3,2 
01, 173, 144,3,76, 13,3, 163,5,7 
6, 131B 

73 220 DATA 191 , B , 201 , 186 , 176 , 3 
,76,38,3,201 ,211 , 144,3,76,38 
,3.1570 

DB 230 DATA 169,6,78.131.8.201, 
218 , 176 , 3 , 76 . 57 , 9 , 201 , 243 , 14 
4,3.1781 

B6 240 DATA 76,57,9,169,7,76,13 
1,8,169,0,76,131,8,0,0,38,10 
7S 

66 250 DATA 39,40,41,42,43,44,4 
5 , 100 , 232 , 26 , 228 , SB , 228 ,90,2 
28, 122, 1608 

FF 260 DATA 228,154,228,186,228 
, 218, 33B, 57, 76, 82, 13,0,0.0,0 
, 173.1BB1 
C5 270 DATA 0,220,201,111,208,1 
1,169,1 , 133,251, 165,252, 133, 
253,78,43.2233 
75 280 DATA 234,189,0,133,251,7 
6,43, 234 , 0 , 0 , 2 1 1 , 74 , 63 , 78 , 21 
1,128, 1317 
SA 230 DATA 0,0,224,0,0,150,0,0 
, 126 , 0 , 0, 83 , 128 , 0 , 63 , 224 . 948 

ES 300 DATA 0,31,240,0,31,0,0,1 

3,128,0, 12, 192,0,4,96,0,747 
9E 310 DATA 4,48,0,0,24,0,0,8,0 

,0,0.0.0,0,0,0,84 
5E 320 DATA 0,0,0.0,0,0,0,0.0,0 

.0,0,0,0, 199,255,454 
2D 330 DATA 255 , 255 , 12B , 0 , 1 , 191 

, 255 , 253 , 1 60 , 1 27 , 2S3 , 1 60 , 127 

.249, 180. 127,2701 
FE 340 DATA 243,160,127,253,191 

,255,253, 131,255,253, 131 ,231 

, 253 , 131 , 195 , 253 , 3S01 
2C 350 DATA 191 , 19S . 253 , 131 , 231 

,2S3, 131,253.253, 131,555,353 

, 131 , 231 , 253 , 191 , 3576 
BA 380 DATA 331,253,131,231,253 

.191,255,253,128,0,1,355.255 

,355,0,255,3007 
22 370 DATA 255,255,128,0,1,128 

, 0 , 1 , 12B , 0 , 1 . 128 , 0 , 1 . 128 , 0 , 1 

154 
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69 

OS 

48 

23 

02 

FD 

B5 

IB 

AC 

E4 

BO 

CD 

49 

4C 

6E 

7F 

9E 

B6 

FS 

S3 

□G 

17 

84 

BC 

0E 

07 
Bl 
4B 
B7 



3B0 DATA 1,128,0,1,143.255,2 
4 1 , 159 , 255 , 249 , 153 , 255 , 249 , 1 
58,255,121,2529 

390 DATA 156,56,57,158,195,1 

21 . 159 , 255 , 249 , 159 , 255 , 249 , 1 

57,219,195,143,2783 

400 DATA 255,241, 12B, 0,1, 128 

, 0 , 1 , 128 . 0 , 1 , 255 , 255 , 555 , 0 , 2 
55,1903 

410 DATA 255,255, 128,0, 1.12B 

,0.1,128,62,1,128,127,1,12b, 
227,1570 

420 DATA 129, 12B, 193, 129, 128 
. 1 . 128 , 128 , 1 , 129 , 128 , 3 . 128 . 1 
28,7,1,1491 

430 DATA 128, 14.1, 129, 2B, 1,1 

2B , 24 , 1 , 128 , 24 , 1 , 1 28 , 24 , 1 , 12 
B.8B7 

440 DATA 0,1, 129,24, 1.12B. 24 

, 1 , 1 2B , 0 . 1 , 255 . 25S , 255 . 0 , 255 
, 1455 

4S0 DATA 255,255.128,0,1.128 
. 0, 1 , 128, 192, 1 . 128, 176, 1 , 12B 
, 131 , 1653 

460 DATA 1,128,194, 193, 12B.1 
78,1.128,131,1,128,130.193,1 
28,130, 1,1793 

470 DATA 12B, 130, 1,131. 130.1 

,135,130,1,131,14,1,128,30.1 
,128, 1220 

4B0 DATA 12,1.128,0.1,128,0. 
1 , 128 , 0 , 1 , 255 , 255 , 255 , 199 , 25 
5,1619 

480 DATA 255.255,128.0,1,128 
,0, 1, 128,0, 1,128, 127,249, 128 
,64.1593 

500 DATA 21,128.128,61,128,1 

28,33,129,0,55,128,0,65.134, 
0,253,1402 

510 DATA 139,255.141,144,0,2 
1, 191,255.228,160,0,41, 160,0 
,49, 159, 1944 

520 DATA 255.225,159,255,193 
,128,0, 1.128, 0,1,255,255,255 
,198,255.2564 

530 DATA 2S5.255,12B,0,1,12B 

,0,1.159,255,248,144,0,3,144 
, 128, 1B57 

540 DATA 9,144.66,3,144,36,3 
,151, 129,233, 144,36,9, 144.66 
,9, 1338 

550 DATA 144,129,8,144,0 9 1 

59.255.248,144,0,8,149,42,16 
3,144, 1755 

560 DATA 0.9,159,255,249,128 
, 0 . 1 . 128 , 0 , 1 , 255 . 255, 255, 133 
,255,2149 

570 DATA 255,255,128,0,1,128 
, 24 , 1 , 128 , 125 , 1 , 1 35 , 255 . 225 , 
136,0,1738 

590 DATA 17.135,255,225.133, 

38, 161 , 133, 36, 161 , 133, 36, 161 

,133,36.161,1952 

S90 DATA 133,36,161,133,36,1 

61,133,36, 161,133,36,161, 133 

,36,161,133,1783 

600 DATA 36.151.133,36.161.1 

35 . 255 , 22S , 128 . 0 , 1 , 25S , 255 . 2 

5S, 133, 173,2408 

610 DATA 0,220,201,111.206,7 

.163,1.133,251,76,147,11,163 
,0,76,1780 

620 DATA 137,11,165,251,201, 

1 . 208 , 4 , 165 , 252 . 1 33 , 253 . 76 , 4 
8,0,0, 1806 

630 REf1 • GET READY TO SAUE 
IC0N64 • 

640 PRINT"CCLR,DDUN23PRESS A 
NY KEY TO SAUE ICON 64" 

650 PRINT"CD0UN3ONCE SAUED T 
HIS PROGRAM IS hq- 

660 PRINT"LONGER REQUIRED. Y 
OU LOAD IC0NS4" 



^8 



670 PPINT"AS A NORMAL BASIC 
PROGRAM AND RUN IT" 
49 680 GETKS: IFKS-""THEN680 
5F 690 P0KE43, I : P0KE44 , 8: P0KE45 
. 161:P0KE46, 1 1 : SAUE " IC0N64 " 
B,l 

AS 700 REM CHANGE ,8 TO ,1 F 

OR TAPE • 



PROGRAM; IC0N64 DEMO 



IB 



2F 



28 



E7 



F8 



56 



100 POKES32B1,0 ; REM SET SCRE 
EN COLOUR 

110 POKE532B0,14:REM SET BOR 
DER COLOUR 

120 P0KE2141, 14: REM ICON COL 
OUR 

130 SYS213B:REM 5ET ICON COL 
OURS 

140 POKE2190,1:REM 5ET Hl-LI 
GHT COLOUR 

150 PRINT "CCLR , YELLOW] CRUS 
ON] ICON 64 DEMO CCJ M MEDHUR 
ST NOU 19BBERUS0FF] " 
160 PRINT"CBLUE] CCU36] " 
16 170 PRINT'TOOWN.WHITEIUSE A 
JOYSTICK IN PORT #2 TO CONTR 
OL" 

57 180 PRINT'TWHITE , D0WN]THE PO 
INTER AND PRESS FIRE TO SELE 
CT AN COOWN] ICON" 
190 SYS2088:REM INITALISE IC 
ON 64 

200 SYS2120:REM TURN ON ICDN 
S 

CB 210 PRINT"CHOME. WHITE, D0WN7 

RIGHTS, YELLOW] " ; 
83 220 FB-PEEKC2S1) 

230 REM FB-FIRE BUTTON YES - 
1 NO -0 

240 FC-PEEKC252) 
4A 250 REM FC-1C0N UNDER POINTE 
R 1-7 

260 FD-PEEKC253) 
270 REM FD-LA5T ICON SELECTE 
D 1-7 

C4 280 IFFB THEN ON FC GO5UB300 

,310,320,330,340,350.360 
ID 290 GOTO210 

25 300 PRINT"DISKCSPC4]";RETURN 
3C 310 PR INT "TAPEC SPC4] " : RETURN 

4A 320 PR I NT "QUEST I ON " : RETURN 

2F 330 PRINT"MU5ICCSPC3]":RETUR 
N 

6C 340 PRINT "PRINTER " : RETURN 

350 PRINT"CLEARCSPC3]":RETUR 
N 

360 PRINT"BINCSPC5]":RETURN 



SO 



E2 



19 



BO 



7E 
BE 



D3 



s: 



80 Columns 




PROGRAM: SDBO.OBJ.BAS 



10 DATA 1300 

20 DATA 4C.79, 19.00,00,00,00,00, 

7F , 02 , AF , 00 , 00 , 02 , 00 , 00 , E0 . 38 . 4C 
.39.03AD 

30 DATA ^.40,54,^.75,43,00,38. 

24 , 58 , 04 , 00, 00 , 3F , 00 , 00. 07 , FF . 01 
,O1,03FB 

40 DATA 01, FF, 00, 00, 30, 30, 00, 3F 



3F,04,20,3C, 14 , 30, 03, 4C. FE, 13 , AD 
.0D.04FC 

50 DATA 13,D0,03,4C,02, 14, AD. 05. 
13,80,25. 13, AD, 04, 13, BO, 21, 13 , AD 
,22,0523 

60 DATA 13.CD,03,13,90,12.F0,03, 
4C.FE, 13, AD, 21, 13, CD. 0B, 13,90,05 
.FO.073C 

70 DATA B3.4C.FE, 13.50, 4F.16.flD. 
06, 13, F0, OA, CD, IB, 13.30, 1C.F0.1A 
.4C.063F 

80 DATA EC, 13, AD, 23,13,00,60, AO, 

18 , 13 . D0 , 0D , A9 , 01 , BD, 23, 13. CD, 06 
,13.0727 

90 DATA B0. 03, 4C, EC, 13, AD. 22,13. 
BD , 1 A , 13 , AD , 21 , 13 . 8D, 19, 13, A9 , 00 
,80,066 A 

100 DATA 31, 13, AD, 9C, 17, DO, 3C, AD 
. 1A, 13. CD, 08. 13,90, 12 , F0 , 03 , 4C , E 
0. 13.0747 

110 DATA AD, 13, 13, CD, 08. 13.90.05 
, F0 , 03 , 4C , E0 . 13 , 20 , FB, 14 , 50 , 12 , 1 
8 , 20 , 0622 

120 DATA 78, 15,20, 15, 19, AD. OC, 13 

.OO^C.EE.ia.lS.DO.OS.EE.lfl.lS.E 
E.31.06CB 

130 DATA 13,4C,A2,13.20,63,17,CE 
,9C,17,CE. 1B,13,4C,6B, 13.AD.21.1 
3.18.05EB 

140 DATA 6D. 31, 13. 80,21,13,30,03 
.EE, 22, 13.4C.4E, 13. 20, OS, IB, 60 , A 
D.06.0SF5 

150 DATA 13,80, IB. 13, AD, 04. 13, BD 
. 19. 13. 20, FB, 14, 50, 15, 13, 50, 7B, 1 
6 , 50 , 0493 

160 DATA 15, 19, AD, OC, 13, D0.1A.EE 

, 19, 13, AD, 13, 13, CD. 08, 13.90, E4.F 
0, £2,0802 

170 DATA EE.1B,13,AD,18.13.CD,0A 
, 13, 30 , Dl , F0 , CF, 4C, FE, 13, AS 00 ft 

2, BC,032F 

180 DATA CA.3D.D3, 17 , D0 , Ffl . BD . 9D 
, 17,8D,SC, 17.B0.6B, 18,A5,9D,BD, 1 
1.19.03AC 

180 DATA A3,00,95,SD,8D.0C,13,A3 

, 78 , 85 , B8 . A9 , 00 , B5 , B9 , A3 , 00 , 85 , B 
7. A3, 034 A 

200 DATA 04,BS,BA,20.CO,FF,9O,0B 

,C9,01,D0,07,AS ( 02,8D,0C.13,38 ( 6 

0, A2.07EF 

510 DATA 7B,20,CS,FF,90.07,A9,01 
.BD.OC, 13. 38. 60, A9, IB . 50. 6C, 19 A 
9.6C.0763 

550 DATA 20, 6C, 19, AD. 07, 13,20, 6C 
, 13, A3, 0D ,20,6c, 13, AD, 00,13, F0, 5 
6 , AS . 0628 

230 DATA 08, 20, 60,19, AD, 0B. 13, 53 
.10, 00, 40, A0, 08,13,59,08^0, 07, A 
2,03,0553 

240 DATA A3 1 02,4C,C0,14,A2,01,8A 

. BE, 2B. 13, 80, 27, 13, AD, OB, 13, 23,0 

1 , F0,066D 

250 DATA U. AD. OB, 13, 23, 02, F0 . OS 
, A2 , 03 , 4C , E0, 14 , A2, 02 , 4C. E0 , 14 , A 
2,01.0668 

260 DATA 8E.56, 13, CA , F0 , 13 , AD , 5B 

.13,9D,2B,13,4C,E3, 14, A3, 03 , BD, 2 
5,13.0703 

270 DATA A3, 02, 80,27.13,18,60, 48 

, 9B , 48 , 8A , 48 . 20 , 0C. 15, 20, CB , 15, 6 
B, AA,0634 

280 DATA 6B,A8,6B,£0, AD, 19, 13,80 
. IB, 13, AD. 1A, 13,80, 10, 13, AD .00, 1 

3, F0.06BF 

230 DATA 4F,4E,1C,13,6E,1B.13.4E 

,1C,13,6E,1B,13,4E,1C,13,6E,1B,1 
3, AO. 0447 

300 DATA OD. 13, C3. 02,30,35, AO, IB 
, 13, 8D, ID. 13, A3, 00, BD, IE, 13, 4E, 1 
D.13.0S2B 

310 DATA 4E,1D,13,4E.1D,13 1 A0,1D 

.la.eo.ce.ie.AD.iE.is.BD.cy.is.e 

0 , 3F , 0647 
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LISTINGS 



350 DATA lS.AO.CB.lS, 1B.6D, IB, 13 
, BD, ID , 13, AD , C7 , IS , BO , 1C, 13 , BD , 1 
E, 13.0SFB 

330 DATA AD, IB, 13.BD.C6, 1S.A9.00 
,BD,C7, 1S.S0.9F, IS, AO , C5 , 15 , IB t 6 
D.1B.074E 

310 DATA 13.BD, IB, 13. AO.C7, 15,50 
, 1C, 13 , 90 , 1C , 13 , AD , 0D, 13, 00 , 0C, A 
D, IB. 0650 

350 DATA 13, BD, ID, 13, AD, 1C, 13, BD 
, IE, 13, 60 , AD, CG , 15, 0E, C6 , 15. BE . C 
7,15,0645 

360 DATA 0E ( C6 1 15,aE 1 C7,15,lB,6D 
, C6. 15, BD , C6 , IS . 90 . 03 , EE, C7, 15 , A 
2,04, 07BE 

370 DATA 0E.C6. 15.BE.C7, 15.CA.D0 
, F7. 60, 30. 54, AO, BE, 13,16. 6D, IB, 1 
3.9D.07A6 

3B0 DATA 4D, 16, AD, OF, 13,60, 1C, 13 
,BD.4E, 16,50,39, 16 , BD , IF , 13 , AD, 0 
0, 13,0489 

390 DATA F0 , 19, AD , 19, 13, 59, 07 , AA 
,BD,lA.16.2O,lF,13,BO,lF.13,F0 t 3 
6, AO ,0699 

400 DATA 0D , 13 , C9 , 01 , F0. 54, AD , 10 
,13, 18.60, 10, 13, BD ,40, 16, AD, 11, 1 
3.6D.05B1 

410 DATA IE, 13,80, 4E, 16,50, 39, 16 
, 59 , 0F , 90 , 50 , 13 . 60 , 80 , 40 , 50 . 10 , 0 
8,04, 03E4 

450 DATA 05, 01, AS, 1A, 50, DA, CD, 59 
,F0, 60,50,13.60, AS, 1A, 50, OA, CD ,5 
9.0F.077A 

430 DATA 8D, 50, 13,50, A5, 15, AD. 4E 

.le.so.cc.cD.AD^D, i6,E8.s0,cc,c 

D, AS.0BF1 

440 DATA IF, 50, DA, CD, 60, 98, 54, AD 
,0A, 13.80, IB, 13, A9, 00.90,53, 13.9 
D , 67 , 05E4 

450 DATA 1B.BD.S9, IB, AD. 9D.17.8D 
,3E, 17,80.99, 17.AE.56, 13, CA, 30.0 
6 , 50 , 070E 

460 DATA 93. 18,4C,6C, 16, A9,0O,50 
, 6C , 19, 60, 49 , 8A , 48 , 99 , 46 , AD, 0D, 1 
3,00,06GB 

470 DATA 0F, AD, IF, 13,50,56, 19,50 
, 6C, 19 , EE , 9C , 17 , 4C , CS , 16 , AD. 0B , 1 
3,59, 05AE 

480 DATA 10,F0,06,20,CB. 16.4C.C5 
, 16, AD, IF, 13.F0, 10, AE.56, 13.CA.B 
O.58.07A0 

490 DATA 13,9D,5B,13,CA 1 10.F7,4C 
,C5, 16, A9, 00, AE.56, 13,CA,9D,5B, 1 
3.CA.07E5 

500 DATA 10 , FA , 50 , 50 , 17 , 58 , AB, 68 
, AA , 68 , 60 , AO , 0B , 13 , 59 , 50 , F0 , 09 . A 
D, IF, 0731 

510 DATA 13.D0,04,A5.01 ,D0,03,AE 
,50, 13, A9, 00, CA, 30, 06, 19,69. 03,4 

C, E0,0597 

550 DATA 1G,A8,B9.F0,16,BD,5B,13 
.B9.FE. 16,90,50,13,89^,16, 80, 2 

D, 13,0889 

530 DATA 60,03,03,03.01,05,05,03 
,01,03,01,00,01,01.05,01,01,00,0 
0.00, 007C 

540 DATA 01.01,01,05.00,03,00,05 
, 00 , 03 , 00 , 03 , 00, 03 , 01 , 00 , 05 , 03 0 
1,03,0010 

5S0 DATA 01,05,00,00,01,00,00,00 
,00, AC, 98, 17, 86, 30, OF, AE, 56,13, C 
A.30.040A 

560 DATA F7, 1E.5B, 13,50, 9F, 17, 4C 
,36, 17, AE, 56, 13.CA, 30, 0C.BO.SE, 1 
3, 10,05CfV 

570 DATA 5B.13,9D ( 5E.13,4C,45.17 
, AD.9B, 17. 18.6D.57, 13.8D.9B, 17 ,C 
9.07.0SF1 

580 DATA B0.01.60.AD.9B, 17.3B.E9 
,07, BD.9D, 17, AD, E7, 19. 19,60,55, 1 
3 , 9D , 07S0 

590 DATA 57,16^0,68,18,59.00,90 
,69, 18, AS, 00, BD.5E, 13,09,90, 50, B 



C. 19.05F0 

600 DATA 50, 93,19. E8. EC, 56. 13. 90 
,EF, EE.9C, 17, AD.9E, 17,9D,9B, 17,5 
0,05, 0BFE 

610 DATA 00,00, 00,08, BC , 65 , 18,50 
.69. 19. B9.D9, 17,20.66,19,00.06.3 
9, IF, 0534 

650 DATA 16.4C.B7, 17, 19, IF, 18,99 
, IF, IB, 28, 10. 0C.B9, 09. 17.00,66, 1 
8,99,0563 

630 DATA 09,17,4C,05,17 1 A3,FF,3B 
, ED, 66. 16, 39,09, 17,99,09, 17, AC, 6 
S, 18.094E 

640 DATA 60,00.00,00,00.00,00,00 
, 00 , 00 , 00 , 00 . 00 , 00 , 00, 00 , 00 00 , 0 
0 , 00 . 0060 

650 DATA 00,00,00.00,00.00,00,00 
, 00 . 00 , 00 , 00 . 00 , 00 , 00 , 00 , 00 ( 00 1 0 
0,00,0000 

660 DATA 00,00.00,00,00,00,00,00 
, 00 . 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 0 
0, 00, 0000 

670 DATA 00,00.00,00,00.00,00,00 
, 00 . 00 , 00 , 00 . 00 , 00 , 00 , 00 , 00 , 30 , 0 
0, 00,0000 

690 DATA 00,00,00.00,00.00,00,00 
, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 t 0 
0,00,0000 

690 DATA 00,00,00,00,00,00,00,00 
, 00 . 00 , 00 , 00 . 00 , 00 , 00 , 00 , 00 , 00 , 0 

0 . 00 . 0000 

700 DATA 00,00.00,00,00,00,00,00 
, 00 . 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , Q 
0, 00,0000 

710 DATA 00,00,04,3A,00,BA, 16,60 
, 67, 18 , BD , 24 , 13 , BD , 92. IB , AD , 68 , 1 
B,69,05SD 

720 DATA 00,4A,6E,54, 13.4E, 54, 13 
, 4E , 54 . 1 3 , AD , 95 , 19 , 59 , 07 , 50 , CI , 1 
B, 80,0506 

730 DATA 65, 18, AC, 54, 13. 60. 3A, 50 
,69, 18, A9, 00. 90, CO, IB, B9, 09, 17,5 

D. 66.06E6 

740 DATA 16,F0,05. A9,01.9O,C0. 18 

,B9, IF, 19,BD,66, IB, F0.09, AO, CO. 1 

B. 16.074D 

7S0 DATA 69, 05, BD, CO, 1B.AD.C0, 16 
,9D,SE, 13, 60. 00, 8E, 04, 18, AA.BO.C 

C. 1B,085B 

760 DATA AE, 04, 16,60,01 ,05,04,08 
, 10,50,40,80,00,09, IB, 50, 6C, 19, A 
9 . 6C , 0577 

770 DATA 50,6C.19.A9.00,S0.6C.19 
, AD.0D, 13,00, 0D. AD. 6B, 19.F0.05, A 
9 . 95 , 06FE 

790 DATA 20.5C, 19.4C.FB, 18.A9.0F 
,50,6C, 19, A9, 00,50, 5C, 19,50. 6C, 1 
9,50,0591 

790 DATA CC.FF, A9,7B,S0,C3.FF,AD 
, 1 1 . 19 . B5 , 90 . 60 . 78 , 48. BA , 48 , A5 . 9 

1, C9,0ABB 

900 DATA 7F,F0,05 I D0,0S,A9,FF,8O 
, 0C , 1 3 . 68 , AA , 66 , 60 , AO , 1 F , 13 , 30 , 0 
S.SC.07B4 

810 DATA 50,13.50,15^0,68,19,00 
,08, A9. 15.S0,6C, 19.EE.6B, 19, AO, 1 
F, 13,0655 

620 DATA 59.7F,4C,SS,19,AD,6B ( 13 
, F0 , 08 . A3 , 95 , 50 , 6C , 19 , CE , 6B , 19 , A 

D. 1F.07B9 

830 DATA 13,09, 50,90,06, C9, 40, 90 
, 00 , C9 . 60 , 90 , 06 . 18 , 69 . 40 , 4C , 6A , 1 
9, 19.06A1 

840 DATA 69,20.60, 18, 49. 20,02, FF 
, 90 , 0S , A3 , 01 , 9D , 0C , 1 3 , 68 , 60 , 06 , 4 
8.8A.06C7 

850 DATA 4B.9B,48.AD.00,FF l 4B. A9 
, 06 , 6D , 00 . FF , A0 , 00 , AS , 19 . 50 , DA , C 
D,29,09A2 

660 DATA C0.C9, 80, 90, 08,09,81,90 
,01,C6,C8,8C ( 0D, 13,A5,0C,50,DA,C 
D , 80 , 09BB 

B70 DATA OF.IS.EB.SO.DA.CCBD.OE 



, 13 , AD, 00, 13 , 90 , OF , A5. 14 , SO , DA , C 

D, BD,07F5 

880 DATA 11,13.EB,S0,DA,CD,BD.10 
, 13 , AD. 03, 13 , F0 , 55, A9 , 00 , BD , 04 , 1 
3 , 80 . 0775 

890 DATA 05, 13, 9D, 05, 13. AD, 00, 13 
, F0 . 3C, AS , 01 , 50 , DA, CD, BD , OB , 13 , A 
9,00.0675 

900 DATA 8D,09.13.0E,0B,13.SE.09 
.13.0E.0B, 13.SE.09, 13.OE.09, 13,5 

E. 09.01EF 

910 DATA 13.CE,0e.l3,AD,0e, 13.C9 
.FF.DO.OS.CE.OB.IS.AS.OB.SO.DA.C 
0 , OA , 07CS 

950 DATA OA.OA.AA.CA.gE.OA, 13.4C 
,26, 1A, AS, 01, 50, DA, CD, AA,CA,6E,0 
8, 13.074B 

930 DATA A9, 00, BD, 09, 13. AS, 06, 50 
, DA , CD, AA , CA , 9E , 0A, 13. SO , 35 , 13,6 
8,80, 073A 

940 DATA 00 , FF , 5B , A8 , 68 , AA , 6B , 58 

, 60 . OB , 48 , AD , 3C , 03 , BD , 6D . 1 A , AO , 3 
0,03, 074E 

950 DATA 8D,5E.1A,A9,65,BD.3C.03 
. A9 , 1 A , 9D , 3D , 03 . 6B , 58 , 50 , 08 . 48 , A 
0 , 60 , 06D9 

960 DATA 1A.BD.3C.03,AD.6E.1A.8D 
,30.03, 6B,5B,60,C9,00, DO, 03. SO, 7 
9, 19,0656 

370 DATA 4C.00, 00, 00,00. 00, 00.00 
, 00 , 00 , 00 . 00 , 00 , 00 , 00 . 00 , 00 , 00 , 0 

0,00, 004C 
990 DATA END 

B399S PR1NT"L CLEAR3 " :COLOR0, 1 ; CO 
LQR4, 1:CHAR1,10, 12, "C YELL0W]W0RK 
ING. . . .S", 1:CHAR1 , 14, 14. "PLEASE 

WAIT", 1 : RESTORE 
63995 READAS : S-DECC AS) : E-S: DO i RE 
ADBS: I FBS" "END " THENEX I T 
53997 SU-0:FORJ-0TO13:B-DECCB$) : 
P0KEE*J,B:SU-SU+B:CHAR1 ,SS, IS, HE 
XSCE*J)*"-S ,, *BS, 1 

63998 READBS: NEXT: E"E+50: I FSU<>D 
EC C BS ) THENPR1 NT "C CLEAR] C OOWNH DO 
WN3CDOWNDCDOWNKDOWN3CC 3D DATA E 
RROR IN LINE"PEEKC655-556-PEEKC6 
6) : END 

63999 LOOP: INPUT"CCLEAR:CD0UN3CD 
OWN J C DOWN D C DOWN ] C DOWN ] C D0WN3F I LE 
NAP1E OF TARSET FILE: " ; NS : BSAUECN 
S3 , B0 | PCS5T0PCE) : END 



PRDGROM . B0COL . OBJ . BA5 



10 DATA F500 

50 DATA 4C,93,F5,4C, A5.F5,4C,CF, 
FS , 4C . OA , FS , 4C , EF , F3 , 00 , 00 , 00 , 00 
,4C,0A55 

30 DATA 06.F4.4C,BF 1 F4,4C,D8.F4, 
00 , 4C , F9 , F4 . 4C , FC , F4 , 00 , 00 , 00 , 00 
,00,0988 

40 OATA 00,4C,E4,F6,4C.5B.FA,4C. 
7B , FA , 00 , 00 , FE , 05 , FE . 84 . 80 , 64 , FO 
, A9.0A87 

50 DATA 00 , BD , F3, FF , 60, IF , 24 , IF , 
18, 1F.0C,2B,18. IF, 54, IF, 18. IF, OC 
, SB, 0497 

60 DATA 18,B2.1F,0C,1F,OG.2B,06. 
94,00.00,0c. 13, 0C, IF, 06, SB, 06, 13 
,0C,0S4F 

70 DATA 94, 00, 00, 0C. 1F.0C, 1F.0C, 
IF, 06, SB ,06. 94 ,00, 00. 0C, 13, OC, IF 
,06,0530 

90 DATA SB, 06. 13, 0C, 94,00,00.00, 
IF, 0C.8S. 86. 4C. 40, FB. 00, 00, 00, 00 
,00,03AC 

90 DATA O0,4C,0C,FD, 40,00, 00,50, 
B7 , F5 , BE , 00 , D6 . 5C , 00 , D6 , 1 0 , FB , AD 
,01,0789 

100 DATA D6,50.C5,F2.60,20.B7,FS 
. BE , 00 , D6 , SC . 00 , D6 , 10 , FB , BD , 01 , D 
6,50, 09CB 
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X 12 2^ F2 -aD.00.FF, 58,60. 00 -8 

0 E3 0 3 c| ,fi2,1F,58 ' 50 - flS ' Fa - Bi - 5 

*2 h T =/ E,Aa,1F ' E0 ' 93 ' F5 ' S0 -9« 
0 ft C3, 1 0 a B 0 ? O ,A5 ' F5 - 9e ' EB - 50 ^ 5 ' F? - 6 
140 DATA 04, 90, 03, 40, 07. F4, 80 73 

9 0i 9 099F ,8A,ll8,AD ' 73 ' Fli,FO ' 4D - C 

l lt ^ T L Fa - 35 ' fl5,19 ' e0 ' 93 1 F 2.09 

G ;I fl a 0 0 97 fl r FE " AD - 73 - F4 - C9 ' 05 - F0 . 0 

°S r 2 a ' l5,F4,4C: - C3 ' F3 ' A9 -3B.BD 

s:F 4 4:0 4 BF fl D ,i4,50,As ' F8 ' ft9 - E0 - BD ' 7 

180 °5 Tfl ".BF.aa.AS.FE.AE.oe.As 

l M °= T !r- 29,7F,09 ' ,!0 ' 20 - A5 -^.«9 
3 O 0 0 g l90 0 B C,5a,flS - Fa ' EB - aO - AS ' F2 ' A 
300 DATA A2,a«i,20,A5,Fa,ft3,0a,E8 

D 2 73 fl 09FB ' 09 ' 19 ' A? ' 06 1 22 ' flS ' F2 ' A 
510 DATA F4,C9.03,90,03,4C.03,F4 

2 E eD 7 0975 ' P9 ' 00 ' BD ' BF ' FE ' 80 ' 10 ' F 
SE0 DATA 1 1 , F3 , A3 , 08 , BD . IE , FS , A9 
^0^50 , 0B , F4 , AS . 08 , BD , 10 . FS . BD , 1 

530 DATA A9,00 ( BD,0F,FS ( BD,11 FS 
,50 .09^4.40.03^4^9,00,80,76^ 
4,BD,0353 

540 DATA 77 , FH » A2 , 00 , S3 , A 5 , F 5 , E 8 
. 50, AS, F5.A5, 19, 50, 93. FS. 09, 90, 5 
0.AS.0A1O 

5S0 DATA F2 , AD , 73 , F4 , 09, 03 , B0 , IB 

.Ag.OB.BD.U.Fe.AS.^O.BD.lS.FS.A 
9.00.39FB 

560 DATA BD.0F.F5. 80,10, F5. 50, 08 

,F4, 40.03^4^9,00,90,11^5^9,5 
0,BO,033B 

570 DATA 13,F3,A9, 40,80.10^3^9 

8 0 6 0 0 8 0 D 9 sr ,F2 ' a0,0a ' FH - 68 ' Afl ' sB - ft 

580 DATA 80.44^4^0, 10.FS.A5.12 

,S0.AS,F5,AD,0F,F5.EB,50,AS,F5.A 
5. IF, 0AED 

590 OATA AD,44.F4,50,AS > F5,CA ( A9 
300 DATA FO.ll.AA.CA.BA.AB.Aa.lF 

310 DATA 00,A9.40,BD,76,F4,A5,0C 
5 F^aA BS ' A9 ' 80 ' 90 ' " ' F4 ' EB ' 58 ' 
350 DATA A9, 80, BD.74.F4.A5, 14,50 
£ fl ^ F ^ A |. 00 .QD.75,F4,EB,a0,A5,F 

330 DATA lS.AS.OB.SO.AS.FS.SO.Oa 

. 0 0.0J.O0.00.ft9 t 00,A0.D0,BS,DA.e 
4, DB.07AF 

340 DATA AE.1S.A9.S0,S0,A5.FE,E8 

A 05 0 09DB ,A5,F8,fl0,00 ' A9 ' DA ' BD ' A 
350 OATA AE.01 ,aa, A5.05, A5, IF 50 

0 fl |0 F 087| ,C0,0B,90 ' EC,Ae ' 1F ' fl9 ' 0 
360 DATA A5,FS,9S,DB,FA.1B,A5,DA 
9 E0 B D 8 ! ,DA ' 90 ' D9 ' EG ' DB ' flS ' DB - C 
370 DATA 90,Dl,60.8E,F7,F4,S3,0F 

O 8 F D S F 0 5 BB F 4' fl5>1A ' a0 ' 93 ' F8 - 89 - F0 - 0 

390 55 T 2 Ftl ' a0 ' AS ' F 2.«E.F7,F4,60 
.BE.F7 1 F4,59,0F ( 0A,0fl.0fi.0pi i BO.F 



S , F4 , 0AF3 

390 DATA A5.lA.B0.93.Fa. 59, OF , 00 

00 S 0;O93 5 F O ' fl5,F8 ' AE ' F7 ' F4 ' B0 - 00 ' B 

400 data 00,38,80,01,18, 4B»fl9,01 

.B0 ( 0a ( fi9 i a0,8D,57,FA 1 S8,a0.65 F 
S.B0.07BB 

H1 £ FC^fin"nr^^ » ^F , FB , SO , 7F , F5 , 50 
7^ Afl F 0ft4S FB, 50. ID, FS, 60, 59, 0 

450 DATA AD , 37 , FA , DO, 09 , AD, E0 FB 

;3D.SA,FS,HC I 34 1 F5,AO,E0,FB,1D,S 
F5, 0C1S 

430 DATA BD,E0,FE.AD,S7,FA,F0,ia 
, AO , 73 , F4 , 09 , OS , 90 , OB , AO , 10 , FS P 
9.0F.0AA0 

440 DATA 0D.E3,F6,8D,E3,F6.S0,A0 

,F6,60,80, 40,50, 10,08,04,05 01 7 
F , EF , 0B9F 

450 DATA OF,EF 1 F7,FB,FD,FE,CS,0S 
0 0C 0 0CBF ,80,B0,0D ' 4B,AD ' 73 ' F4,F 
460 DATA 09, 0E.F0, 04,68. 00,08,50 

.6B,C0,B0,B0,BB ( 3B,60,8D,OE,FB,8 
E.DD.0B13 

470 DATA F5, 90, DB.F6.A9.O0, 80,00 
E DD 4 0E5B ,F8,6E,DD,FB,liE ' DE,FB,B 

480 DATA FS.tE.DE.FB.BE.DD.FB.flO 
, DC , F6 , BD, ES , F6 , AO , DB. FB , BD, El F 
6.4E.0FBD 

490 DATA E5 ( FB,6E,E1,F6,4E,E5,F6 

.BE.El.FB.HE.ES.FB.BE.El.FB.SO.? 

B, FB,0E9S 

500 DATA AD , DB , F6 , 4B , AD , DC , FB . 4B 

, AD , El , FB , 80, DB, FB , AD , EE, F6 , BD, 0. 

C. FG.0F53 

510 DATA SO^g.FG.AO.DB.FB.BD.El 
, F6 , AD, DC. F6, 80, EE, FB, 6B, 90 , DC, F 
6,68, 0E84 

550 OATA 8D,DE,F6.A0,DB.F6,iB.6D 
.DO , F6, 80, DB , F5 , 90 , 03, EE , DC, F5, A 
0 . OB , 0E5D 

530 DATA F6,lB,6D,77,F4,eD.08,F6 
, AD , DC . FB , BD , 7E , F4 . BD , DC. F6 , AD , 5 
7, FA, 0007 

540 DATA F0.S9,AD,73,F4,C9,0S,90 
1 „ ' El , F6 , 16 , 6D, DD, F6, SO, El . F 
5 , 90 , 0C7A 

550 DATA 03,EE,E5,F6,AO,E1,F5,1B 

4 e F D 4:0 5 OF F 9 4,8D ' E1 " FB ' AD ' EH ' F6 ' BD - 7 
560 DATA BD.ES.FB.eO.AS.lE.AD.DC 

,F6 50.A5,FS,AO,DB,F6,EB.S0.AS,F 
E , A5 , 0D5E 

570 DATA 1F.S0, 9 3,FS,SD,E0,F6,AO 

, 57 , FA , F0 , 50 , AO , 73 , F4 , 09 , 05 , 90 , 1 
9 , AS, 0BSF 

583 OATA lS.AO.ES.FB.SO.AS.FS.AO 

a E 59 F 0 G o0 E 0 B,20,fl5 ' F5,fl5 " 1F,20 * B3 - F 

590 DATA FO.BO.ES.FB.eO.AD.OB.FB 

ere rape ' * E 1 DC ' F6 ' 0E ' DB ' FB ' 2E> D 

6O0 DATA 18,SD,DB,F6,BD,DB,FB.90 
jl 03 6 EE > . F6 . AS , 04 , 0E , OB , F6 , SE , D 

610 DATA OA , D0 , F7 , 60 , AS , 15 , AD , DC 

, F6 , 50 , A5 , F5 . AD , DB , F6 . EB , 50, AS , F 
3.AS.0D9A 

BS0 OATA 1F,AD,EO ( FB,S0,AS.F5,AD 

,57.FA.F0,1E.AD,73.F4,C9,0E,90 I 1 
7 , AS , 0B5D 

630 DATA IE , AD , EE , FG , E0 , AS , FE , AD 

.E1.FB,E8,E0.AS.FE,A5, 1F,A0,E3,F 
B.SO.OCDB 

640 DATA A5.F5, 60,00, 00,00, 00,00 
. 00 , 00 . 00 , 00 , BO , 57 , FA , BA , 4B . 98 , 4 
B.O8.0S5F 

GSO DATA AD.S4.F5,AE.23,F5.A0,S5 
, F5 , 50, G2, F5 , 90 , 03, 40, 7B , FB, AO 3 
7,FE,0AOB 

660 DATA AE,56.FE,AC,SB,FS,S0,BS 



,F5, 90, 03, 4C, 7B,FB,A3,00 ia D,lC,F 

A. SO, 0901 

670 DATA Bl.FB.gO.ll.fiO.lCFA.OS 

. 05, 80, 10. FA, AD, 55, F3, 38, ED, SB, F 
5.B0.0A3E 

680 DATA 07, AD, 58, F5, 38. ED, 55 FS 
■SD.SA.FA.EE.EA.FA.SO.SC.FB.SO.l 

B. AD.OACS 

B90 DATA 10, FA, 09, 01,80, 10. FA, AD 

4 F5 F |A3 8 ' ED,EB ' F5,8D,8B ' Ffl,f:,D,a 
700 DATA ED,e7.Fa,40,66,F7,A0,E6 

.FE.SB.ED.BS.FS.BD.SB.FA.AO.E? F 
5, ED, 0010 

710 OATA 54, F5, 90, S9.FA.EE, 58, FA 

.DO.OS.EE.SS.FA.Ag.OO.BD.lF.FA B 
O.20.0AB6 

750 DATA FA , BO , El , FA , BD , EE , FA , BD 

.lD.FA.BD.lE.FA.SO.DF.FB.AO.ES.F 

A. DO.OCSB 

730 DATA S3, A0,S8, FA, CD, SA.FA.BO 
, 1 A , AD, EA , FA , BD, IB . FA , A9 , 00 80 1 
3.FA.0A6S 

740 DATA BD,1B,FA,A0,SB,FA,8D,1A 

.FA 50, OA, F9, 40, IE, FB, AD, 58, FA, 8 
0,18, OADB 

750 DATA FA, AD , E9 . FA , 80, 19 , FA , AD 

0 SA F 0Bl?' 1A,Fn,fl9 ' 00,BD ' 1B ' FA ' 5 
760 DATA F9,A0.1C,FA,E9,01,F0,a3 

.Sa.Al.FB.SO.DS.FB.BO.BO.FB.BO^ 
0.30,0030 

770 DATA EB,F8,SO.F6.F8,90 F3 SO 
' 17, F9 , AD , IE , FA, D0, 0B, AD. ID, FA , C 
D,SA,0BF9 

7BB DATA FA, 90 , 15 , 50 , E8 . FB , AO , ID 

E lE 3 0AEC ,2ft,FA ' 8D,1D,FA,B0,03,C 
790 DATA FA,S0,DF,FB.AO,1C,FA 59 

, 05 , D0 , 06, 50 , Bl , F9, 40, DB, F7 , 50 , A 

B , F9 , 0B59 

B00 DATA 4C,DG,F7,4C,7B.F8,AD.1C 

8 F 50 E 0A7O ,F0,03 ' S0 ' A1 ' FB ' 50 ' DS ' F 
BIO OATA B1.F8.B0,4B,S0,EF,F8,50 

D F 5 6 3 F 0 8 BF 9 7 0 ' F3 ' 50 ' 17 ' F9 ^ D - lE - FA - C 

B ?S ° AT ? n F ^- 90 ' 55 1 F0 . 0 5.S0.0e,AD 

D!l D o:0 A AB C 0 D ' 58 ' F °' a0 ' 1B ' E0 ' EF ' F9 -° 
8 «n D ? T :/:- 39 - Ea .^,FA,B0,lD,FA 
F^FB ^0056 1 ^ ' Ffl * ^ • 1 E , FA , SO , 0 

940 °* T * flD . 1C . ^,39,01,00,06,30 

e 5 s B a F 0 9 87 4 s C,5B ' F9,50 ' 4F,Fa ' 4C - 29 - F 

8 rn ^ r p/!; A8 - B9 ' On ' G0 ' flD ' 55 - F 2 

5 CD IabI ■ ,60 ' 1B ' B0,AD ' ?4 - F 
a ^ FE ' 90 ' 0C " ^-05,60, 08 
3^5 5 0 3 B0 F 5 8,CD,8E ' FE " F0 ' EA - B0 ' AD ' 5 
870 OATA 4B,AD,S4,F5,48.A0,5S.F5 

880 DOTS FS,B8,BD,gB,F5,flD,5S,FS 
B ll S? T ° ' iS ' FF . 8 D.lC.Ffl,BB,0D,e4 

o F o a fl B E B ! 1 3 ' F2 ' flC ' es ' F5 - aa ' 7F - F5 . s 

?" fi °O,8D,2S.FO,BO,26,Fn,60 

BIB DATA FB, 60 . EE, 55, FA. D0 03 EE 

00E F 0 fi 8BB D ' 26 ' Fft ' CD ' SO ' Ffi ' 90 ' aE ' F 
950 OATA B0.0A,AD,35,FA,CD IF FA 

930 J"? • FA , 80, ID, FA, AD, IE, FA 
0 Si OAEB ,8D ' 1E ' FA ' B0 ' EE ' P3 ' Fa - D 
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340 DATA EE , 24 , F2 , AD , 23 , F2 . 29 , 07 
.OB.OO.OB.EE.OB^G.DO.CS.EE.DC.F 

6,28, 0B50 

950 DATA D0 , 0B , EE , El , F6 , D0 , 33 , EE 
, E2 , F6 , 60 , CE , 23 , F2 , AD , 23 , F2 , C3 , F 
F, 00,0003 

960 DATA 03.CE, 34, F3, 39,07,05, 07 
, 0B, D0, 0D, CE, DB, F6 , AD, DB, FG, CS , F 
F,D0,0BQ1 

970 DATA 03,CE,OC,F6,38,O0,0D,CE 
.El.FB.AO.El.FB.Ca.FF.Oa.Oa.CE.E 
2.F6.0E12 

9B0 DATA 60. EE, 25. F2, AD, OB, FS, IB 
, 63, 50, 8D , DB , F6 , 90 , 03 , EE , DC , FG, A 
D, 35, 0037 

990 DATA F2 t 29,07,D0,0E.AD,El,F6 
, lB,69,50 t Ba,El ( F6,90,03 t EE,E2,F 
6.B0.0B72 

1000 DATA 0E,35,F2,AD.DB,F6,38,E 
3 , 50 , BD , DB , F6 , B0 . 03 , CE , DC , F6 , AD , 
25.F2.0D49 

1010 DATA 29. 07. 09, 07, 00. 0E, AD. E 

1 , F5 , 3B , E9 , 50 , BD , El . F6 , B0 , 03 , CE , 
E2, F6.0B90 

1020 DATA "60,20, 3C , FG, AD, 23, F2, 4 
C, ID, F5, AD, 13, FA, CD, IB, FA ,30, 29, 
F0.02.0A1F 

1030 DATA B0.08.AD. 18, FA, CD, 1A.F 
A , 90, ID, AD, IB, FA, 3B , ED, 1A, FA, BD, 
18,FA,0A9C 

1040 DATA AD , 13 , FA , ED, IB , FA , 80 , 1 
9 , FA , EE , IF , FA , D0 , D4 , EE , 20 , FA , D0 , 
_CF, AD.0D61 
1050 DATA 18, FA, 8D, 21, FA, AD, 13, F 
A, SD, 22 , FA , 60 , 00, 00 , 00 , 00 > 00 , 00 , 
00,00,0683 

1060 DATA 00,00,00,00,00,00,00,0 
0 . 00 , 00 , 00 , 4B , BE , F7 , F4 , A2 , 0C , 20 . 
93.F2.0S14 

1070 DATA 49.10,20,AS,F2,BD,7A,F 
A , A2 , 14 , 20 . 93 , F2 , 43 , 10 , 20 , AS , FS , 
80,10,0919 

1080 DATA F2,6B,F0,2A,A9,07,BD,1 
3.F2. A9,FF,B0, 11 , F3, A9.00, 8D.0F, 
F2.20.0A44 

1090 DATA 0B,F4,AD,7A,FA,BD,10,F 

2, A9,00,8D,0F,F2.BD,11.F2,A3,0B, 
BD,12.03C3 

1100 DATA F2 , A3 , 20, 20, 0B , F4 , AE , F 
7 , F4 , 60 , 00 , 4B . A3 , 2E , 85 , DA , A3 , 0A , 
B5, DB.0A61 

1110 DATA AS.DA.BD.AA.OS.BD.BS.O 

2 , BC , FB, F4 , BE , F7 , F4 , A0 , 00 , A2, 00, 
20, A2.0AF9 

1120 DATA 02,49, 10, A2, 00,20, AF,0 

3 , E6 , DA , A2 , 00 , 20 , A3 „ 02 , 49 , 10 , A2 , 
00.20.0G0F 

1130 DATA AF ( 02,6B.4B,AE,F7,F4,A 
C , FB , F4 , 20 , 2B , FA , 68 , D0 , 04 , 20 , C4 , 

FA, G0,0B51 

1140 DATA 20,DE,FA,60,8E,F7.F4,A 
2 , 13 , 7B , BD , 26 , FB , 4B , B5 , E0 , 3D , 26 , 

FB, S8,0BE5 

1150 DATA 95 ( E0,CA,10,F1,SB,AE,F 
7 , F4 , 60 , BE , F7 , F4 , 8C, FB , F4 , A2 . 13 , 
BD,0C,0D0G 

USB DATA FB,9D,26,FB,CA, 10.F7.A 
2 , 00, A0 , 00, 20 , A2 , 02, BD , 23 , FB , A2, 
00,C6,0SA9 

1170 DATA DA , 20 , A2 , 32 , 9D , 27 , FB , A 
E , F7 , FH , AC , FB , F4 , 4C , C4 , FA , 00 , 00 , 
00 , 08 , 0A30 

11B0 DATA 18,00, 00 , 4F , 00, 00, 00,0 
0 , 00 , 1 8 , 4F , 00 , 00 , 07 , 07 , 00 , 00 , 00 , 
00,00,000c 

1190 DATA 00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 
00 , 00 , 0000 

1200 DATA 00,00,00,00,00,00,00,0 
0 , 20, 62 , F5 , 30 , 03 , 4C , 37 , FC , 8D , F6 . 
F4 , AD , 06AD 

1210 DATA 73 , F4 , D0 , 03 , 4C , 37 , FC , A 
0.33^3,00,03,40,37^,09,51,90. 
03,40, 0906 



1220 DATA 37,FC,AD,32,F2,30,04,A 
9 , D0 . 30 . 02 , A9 , D8 , 8D , 39 , FC , A9 , 00 , 
BD , 38 , 0334 

1530 DATA FC,Ag,01,8D,27,FA.AO ( F 
6,F4,8E,DF,F6,BC,03,FD 1 20,7F,F5, 
AO,DB,0CF6 

1240 DATA FB, BD , 3A , FC , AD , DC , F6 , B 
D, 3B , FC, AD , El , F6, BD , 3D, FC , AD, E2, 
F6,BD,0E5B 

1350 DATA 3E,FC.AD,DF,F6,29,07,B 

D. DF.FB, A2,00,8A, 1B.6D.3A, FC,8D, 
DB,F6,0B93 

1250 DATA Aa,3B,FC,69,00.BD,DC,F 
6 , BA , IB , 6D, 3D , FC , BD , El , FG, AD , 3E, 
FC.S9.0BAB 

1270 DATA 00,9D,E2,F5,BD,34,F5,2 
0,3F,FC,85,DA, AS.OO.BS.DB.OB.DA, 
26.DB.0AEC 

1280 DATA 06,DA,26,DB,06,DA,26 ( D 

B , AS , DA , IB , 60 , 38 , FC , B5 , DA , AS , DB , 
6D.33.0A7F 

1290 DATA FC.B5,DB,BE,3C,FC, A0.0 
0, A9 1 OA 1 8D.AA 1 02, A2 , 01 , 20 , A2 , 02 , 
AE.3C.09CF 

1300 DATA FC,20,5F,FC,AD,DB,FS,1 
8 , 69 , SO . BD , DB , F6, 90 , 03 , EE, DC, FB, 
CB.9B.0CE7 

1310 DATA 1B,BD, 03, FD, 29, 07,00,0 

E , AD , El , F6, IB , 69 , 50 , BD, El , FG , 90 , 
03,EE,09CD 

1320 DATA E2,F6,C0,08.90.CG,EB 1 E 

C, 33, F2, BO, 03 , 40 , AB, FB, 60, 00 , 00, 
00,00, 09F1 

1330 DATA 00, 00,00, C9, 40, 90, 16, C 
9 , CO , B0 , IB , 03 , 50 , 30 , 0B , C9 , B0 , 90 , 
07 . 09 , 0BBD 

1340 DATA A0,90,06,38,E9,20,3B.E 
9 , 20 , 20 , 32 , F2 , 50 , 03 , IB , 59 , 80 , 60 , 
09, FF, 0884 

1350 DATA D0,04,A9 I 5E,10,EF,38,E 
9,80, 10, EA.BC.FB, F4 , BE. F7 , F4 , 80 , 
00,FD,0BF0 

13B0 DATA AE,DF,F5,F0,70,BD,04,F 

D , AA , OA , BE , 02 , FD , AD . 00 , FD , 2D , 02 , 
FO , BD , 0C05 

1370 DATA 01,FD,A9,0B,3B.ED,DF,F 
6 , AA , 0E , 01 , FD, OA , DO, FA, AD, DC, F6 , 
48, AO.0C67 

1380 DATA DB , F6, 48, EE , DB , F6 , D0, 0 

3, EE , DC , FG , AO , E2 , F6 . 48 , AD , El , F6 , 
4B.EE,0EF2 

1390 DATA E1.FS,D0.03,EE.E3,F6,3 
0,3C,F6,AD,E0,F6,0D.01.FD,20,34, 
FS,GB,0C01 

1400 DATA aD,El 1 FB,68,BD,E2 ) F5,5 
B , BD , DB , F6 . 6B , BD , DC, F6, AS, FF , 4D , 
02.FD.0DB2 

1410 DATA BO,00,FO,8O,00,FD, AE.D 
F , F6 . F0 , 06 . 4E , 00 , FD , OA , DO , FA , 20 , 
3C,F5,0B5E 

1420 DATA AD,BC,F6 t 0D,0O,FD,20,3 

4 , FS , AE , F7 , F4 , AC , FB , F4 , 60 , 00 , 00 , 
00 . 00 , 0A67 

1430 DATA 01,02,04,06,10,20,40,8 
0 . 8D , 27 , FA, 8E , OA , FE , AO , 88 , F2 . AE , 
B7, F2.0B31 

1440 DATA AC,B9,F2,20.G2.FS,90,0 
3 , 4C , 09 , FE , AD , BB, F2 , AE, 8A, F2 , AC, 

BC , F2 , 0C02 

1450 DATA 20,S2,FS,90,O3,4C,O9,F 
E , AD, OA , FE, FO, 03 , 4C . C9 , FD, AD , 87 , 
F2, AE.0AEB 

1460 DATA B8,F2.BD,23,F2,BD,2G,F 
2 , BE , 24 , F2 , BE , 27 , F2 , AD , 83 , F2 , 8D , 
25,F2,0BD8 

1470 DATA AO,aC,F2,BD,2B,F2,e0,E 
7,F6.AD,8A,F2,AE,BB,F2,B0.23,F2 1 

BD, 2G,0C7B 

1480 DATA F2 . 8E, 24 , F2 , BE. 27 , F2 , A 
D , B3 , F2 , BD , 25 . F2 , AD , BC , FB , BD . 2B , 
F2.20.0BFB 

1430 DATA E7.F6, AD, BS.FS, 80,35, F 
2 , 80 , 2B , F2, AD. 87 , F2 , AE , B8, F2 , BD , 
23. F2. 0040 



1S00 DATA BE,24,F2, A0,8A,F2,AE,8 
B . F2 , 8D , 2G , F2 , BE , 27 , F3 , 20 , E7 , F6 , 
AD , 80 , 0C7A 

1S10 DATA F2,aD,25,F3,8D,28,F2,A 
0 , 87 . F3 , AE , BB , F2 , 8D , 33 , F2 , BE , 24 . 
F2, AD.0C7E 

1520 DATA BA,F3.AE,8B,F2,BD,2B,F 

2 , BE , 27 , F2, 20. E7 , F6 , 4C, 09 , FE , AD, 
8C,F2,0C6E 

1530 DATA CD,B9,F3,B0,09,AE.B9.F 

3 , BD, 89 , F2 , BE, 8C, F3 . AD, 87 , F3, AE, 
88. F2, ODBC 

1S40 DATA BD,23,F2,8£,24,F2,AD,B 
A, F3 , AE , 8B , F2, BD , 26 , F3 . BE , 27, F3, 
AD,BC,0C1F 

1S50 DATA F2,8D,2S,F2,BD,28,FB,2 
0,E7,FG,CE,6C,F2, AD . 8C , F2 , CD , 88 , 
F2 , BO , ODAS 

1S60 DATA Dl, 60, 00, 00, 00, 00, 00.0 
0 , 00 . 00 , 00 , 00 , 00 , 00 . 00 , 00 , 00 , OO , 
00,00.0131 
1570 DATA END 

63995 PRINT"CCLEAR3":COLOR0, 1 : CO 
LDR4 , 1 : CHAR1 , 10, 12, "C YELL0U3W0RK 

ING S" , 1 :CHAR1 , 14 , 14, "PLEASE 

WAIT",1:REST0RE 
G399G RE ADAS i 5~DECC AS5 ; E-S: DO: RE 
ADBS: I FBS- "END"THENEXIT 
63997 5U-0:FORJ-0TD19:B-DECCBfii: 
POKEE* J , B : 5U-5U-B: CHARl , 22, 12 , HE 
XSCE-J3+"-S"*BS, 1 

63938 READBS : NEXT : E~E*20: IF5U<> 0 
ECCBSJTHENPRINT"CCLEAR]C0aUN3CD0 
WN3COOUN3CDOWN3CDOWN3r.c 33DATA E 
RROR IN L1NE-PEEKC653*256»PEEKC6 
6) ■ END 

G3999 LDDP: INPUT"CCLEAR3CDOWN3CD 
OWN 3 C DOUN3CDCUN3C DDUN3 C00UN3 F I LE 
NAME OF TARGET FILE: " ; NS : BSAUE C N 
S ". , BO, PC55TOPCE) : END 

| PROGRAM: lgB/B3/DEnC.BAS 
10 REM 

20 RED DEMQNSTRAT I ON PROGRAM FOR 

80 COLUMN PACKAGE 
30 REfl COPYURITE D.KELSEY SEPTEM 
BER 13BB 
40 REn 

50 REM MAINLINE ROUTINE 

60 REM 

70 FAST 

B0 TRAP 1400 

90 BANK 0:IF PEEK C DEC C "1300" J 3<> 

76 THEN BLQAD "SD80.0BJ" 

100 POKE DECC"1303"3 , 1 : POKE OECC 

"1307") ,0:POKE OECC "130B " 5 , 0 : SYS 

DEC<*1312 - 3 
110 BANK 1:IF PEEKCDECC"F200") J< 
>76 THEN BLQAD "B0COL . OBJ" 
120 GOSUB 230: REH DO TEXT DE 
nONSTRATION 

130 GQSUB 730: REH DO HI-RES 

noNO OEno 

140 GOSUB 1120: REH DO HI-RES C 
OLOUR DEMO 
150 COLOR 6,1 
160 END 
170 REM 

180 REM S"TEXT DEMO" 
190 REM THIS DEnONSTRAT I ON 5H0U5 
THE FOLLOWING FACILITIES: 
200 REM POKE IN B0 COLUnNS 

210 REM SCREEN SUOP 

220 REn 

230 PRINT "n";CHRSC14J; "^RESS »P 
ACE TO CHANGE CHARACTER. CURSOR 
KEYS TO nOUE, RETURN TO END" 

240 PRINT "I ir.i mi I ls# -ur:_t 
x ( ir. -*/ ~*V1 i r* *-- — mm 
. I ' -I _1_ 0 ' " 

250 CH-0: X-40: Y-13 
2S0 DO 
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REM SCREEN 5TA 



270 : AD-X-Y*80 
RTS AT 18000 

280 : SYS DECCT306"3.CH,INTCfiO/ 
25S> , AD-INTCAD/BS63-5S5 
890 : DO 

300 : GETKEY AS 

310 : LOOP UNTIL AB-"-y' QR AS-"-' 
" OR AS-"ll" OR AS-"«r OR os-" " 
□R AS-CHRSC133 OR AS-"p" 



: IF AS' 



350 
-1 

330 : IF AS-"M" 
Y+l 
340 
X+l 
350 
-1 
3G0 

CH-E55 THEN CH 



AND Y>1 THEN Y-Y 
AND Y<E5 THEN Y- 



IF AS-"ir AND X<60 THEN X- 



IF AS-"3l' 
IF AS-" 



AND X>0 THEN X-X 
Ctt-CH+1; if 



LOOP 
REM 
REM DD 
REM 
PRINT 
PRINT 
'S' TO 



THEN 

■0 



UNTIL AS-CHRSC133 
SUQP DEHO 



370 
3B0 
390 
400 
410 
450 
SS 
430 
440 
ALL 
450 
S" 

460 SYS DECC"F22F"5,1 : REM SWOP 
- AND CLEAR 

470 PRINT "THIS IS SCREEN a. PRE 
SUOP TD SCREEN 1, NOTE 
CASE" 



TTtCOLOR 5,B 
"THIS IS SCREEN 1 
SUOP TO SCREEN E" 

PRINT 

PRINT "THIS JUST 
TEXT IS KEPT 
DO: GETKEY AS ■ LOOP 



PRE 

■ 

SHDUS THAT 
UNTIL AS-"" 



"THIS IS BECAUSE THIS 



LODP UNTIL AS- 



SS 'S' TO 
IN UPPER 

4B0 PRINT 
490 PRINT 

IS A NEW SCREEN. " 
500 DO: GETKEY AS 
S" 

5 ONLY YS OECC " Fe2F *' : '' 0 : REM 5U0P 

520 PRINT "AND DATA UIILL STILL B 
E DISPLAYED AT THE LAST POSITION 

OF THAT SCREEN" 
530 PRINT "PRESS '5' TO SUOP ONE 

"ORE TIME" 
540 00 : GETKEY AS ; LOOP UNTIL AS- * 

550 SYS DECC"F2EF"5,0 
560 COLOR 5, 14 

570 PRINT CHRSC14); "NOU , HAUE C 
HANGED COLOUR HERE AS UELL " 
5B0 PRINT 

INUE" RIPJT " PRESS ftNY KEY T0 C0NT 
600 GETKEY AS 

610 SYS OECC'T2EF"5,0 ; REM SUOP 

TO FIRST ORIGINAL SCREEN 
GEO RETURN 
630 REM 

G40 REfl I "MONO DEMO" 
G50 REff THIS SECTION DEMONSTRATE 



THE FQLLQUING ROUTINES 



MODE SELECT 
BACKGROUND COLOUR 
FOREGROUND COLOUR 
SET POINT 
DRAU LINE 
DISPLAY TEXT 



GE0 REM 
670 REM 
680 REM 
690 REM 
700 REM 
710 REM 
750 REM 

730 SYS OECC"FE0C"3 1 

ON GRAPHICS 
740 SYS DECC"F216"3,S 
GROUND COLOUR 
750 SYS DECC"F219"3 1 
GROUND COLOUR 
760 Xl-0:Yl-0 
770 X5-0; Y5-199:SC-1 
7B0 GOSUB 1G00: REM DRAU Y AXIS 
790 X1-0:Y1-100 
600 X5-53S;Ya-100:SC-l 



REM TURN 
REM BACK 
REM FORE 



BIO GOSUB 1600: REM DRAU X AXIS 
8£0 FDR X-l TO 639 

830 : Y=90»SINCX-V180/E3+9S:SC- 

B40 : GOSUB 1750: REM PLOT THE C 
URUE 

650 NEXT X 

860 TES-" !HIS IS A SINE CURUE " 

B70 X-E00:Y-19E 

B80 M0-1SB:REM LOUER CA5E 

BS0 GOSUB 1890: REM DISPLAY TEXT 

ON SCREEN 
900 FOR LO-1 TO 10 
310 : FOR K-0 TO IS 

923 SYS DECC"FS19"J,K : REM 

RAPIDLY CHANGE FOREGROUND 
930 : NEXT K 
940 NEXT LO 
950 SYS DECC"F219"3,l 

960 TES-" 

•■ 

970 X-S00:Y-0 

980 MO-0. REM LOUER CASE REUERSE 

990 GOSUB 1B90: REM CLEAR AREA 
1000 TES-"PRESS A KEY TO CONTINU 

1010 GOSUB 1B90 
10E0 GETKEY AS 
1030 RETURN 
1040 REM 

1050 REM S"COL0UR DEMO" 

1060 REM THIS DEMONSTRATES THE F 

OLLOUING ROUTINES 

1070 REM DRAU LINE 

10B0 REM DISPLAY TEXT 

1090 REM DRAU BOX 

1100 REM BACKGROUND COLOUR 

1L10 REM 

1120 SYS DECC"FE0C"3,E : REM TUR 

N ON CDLOUR GRAPHICS 

1130 SYS DECC"F516"3 ( U: REM SET 

BORDER COLOUR 
1140 X1-S.-Y1-0 

1150 X2-5:Y2-i50:SC-l:CO-8 
1160 GOSUB 1600 
1170 CC-B 
11B0 RESTORE 1350 
1190 FOR M-l TO IB 
1200 : READ Yl 

X1-CM-1)*S3+14 
Y2-150 
X2-X1+40 
5C-1 :FF-1 

IF CC-4 THEN CC-15:ELSE I 
HEN CC 5 4 THEN CC ' 8:ELSE IF CC " B T 
1260 : C0-CC:GOSUB E070: REM DRA 
U A BOX AND FILL IT IN 
1270 i TES-STRSCMJ 

1280 : X-X1*10:Y-1G4:CO-3;GOSUE 
1690 

1290 NEXT M 

1300 TES-"PRESS A KEY":C0-15.X-2 
00: Y-0: MO-0: GOSUB 1890 
1310 GETKEY AS 

1320 SYS DEC("F20C"3,0 : REM RET 
URN TO TEXT 
1330 RETURN 
1340 REM S "DATA" 

13S0 DATA 50,132,95,113,60.79,80 

,64,40,30,10,144 

1360 REM 

1370 REM S"ERRDR" 

13B0 REM THIS ROUTINE TRAPS ANY 

ERRORS 

1390 REM 

1400 SYS DECC"F20C"),0 t REM RET 
URN TO TEXT TO SEE ERROR MESSAGE 
1410 PRINT ERRSCER)," IN LINE " ; 

1420 COLOR 6,1 
1430 END 



1210 
1220 
1230 
1240 



1440 
ES 
1450 
1460 
1470 



REM 80 COLUMN MODULE ROUTIN 



REM 

REM TOTAL UARIABLES USED ; 
REM 

XI , Yl , X2, Y2 , SC, CO , FF , YN , X , Y , TES 
MO 

14B0 REM 

1490 REM THESE SETS OF ROUTINES 
PRDUIDE SUBROUTINE MODULES FOR E 
A5Y ACCES5 



1S00 
ES 

1510 
1520 
1530 
NE 
1540 
1550 



REM TO THE B0 COLUMN ROUTIN 



REM 
REM 
REM 



S"DRAW LINE" 
THIS ROUTINE 



DRAUS A LI 



INPUT UARIABLES : 

XI, Yl 
XB, Ye 

DN LINE 

SC 
POINT 
CO 

CORRECT MODE ) 



REM 
REM 

- STARTING POINT OF LINE 
1560 REM 

- ENDING POINT 
1570 REM 

- 1-SET POINT, 0-CLEAR 
1580 REM 

- COLOUR C IF IN 
1590 REM 

1600 POKE DECC "F224") , INTCX1/B56 
) : POKE OECC "F223" 1 , Xl-INTC Xl/256 
3-25S 

1610 POKE DECC"F22S"3,Y1 

1620 POKE 0ECC"F2B7"J,INTCX2/2S6 

Upsg E DECinFBSG '"> .X5-INKX2/2S6 

1630 POKE DECC "F5EB" 1 , YE 

1640 IF C0<E56 AND CO>-0 THEN PO 

KE DECC'TEIC-J.CO 

1650 SYS DECC "FE29") SC 

1660 RETURN 

1670 REM 

I6S0 REM S'TLOT POINT" 

1630 REM THIS ROUTINE PLOTS OR C 

LEARS A POINT 

1700 REM INPUT UARIABLES ■ 

1710 REM X Y - 

CO-ORDINATES OF POINT 

17E0 REM sc 

- 1-SET POINT. 0-CLEAR POINT 
1730 REM C g 

- COLOUR C IF IN CORRECT MODE 3 
1740 REM 

17S0 IF C0<-2SS AND CO>-0 THEN P 
OKE DECC , 'F21C"),CD 

1760 IF SC-1 THEN SYS DECC "FE1D" 

), INTCX/256),X-INTCX/ESB3-E56 Y 
: ELSE BEGIN 

1770 : SYS OECC"FB20">, INTCX/ES6 
),X-INTCX/E56)-E56 Y 
1780 BEND 
1730 RETURN 
1800 REM 

1810 REM S"0I5PLAY TEXT" 
1B20 REM THIS ROUTINE DISPLAYS T 
EXT DN THE SCREEN 
1630 REM INPUT UARIABLES ; 
1640 REM 

CO-ORDINATES OF TOP LEFT 
F TEXT 
1850 REM 

TEXT TO BE DISPLAYED 
1860 REM 

COLOUR C IF IN CORRECT MODE 3 
1870 REM nQ . 

MODE OF TEXT 
1680 REM 

ie90 FOR YN-1 TO LENCTES) 

1900 : POKE DECC"F233")*YN,ASCCM 

IDSCTES.YN.133 

1910 NEXT YN 

1320 POKE DECC"FE33"),LENCTESJ 
1330 POKE DECC"F23E"),M0 
1940 IF C0<-E55 AND CO>-0 THEN P 
OKE DECC"F21C").C0 



X.Y - 
START 0 

TES - 

CO - 



YOUR COMMODORE april 1989 
83 



LISTINGS 



1350 SYS DECC "F284" 3 , INTCX/2563 , 
X-INTCX/2553"256 , Y 
1960 RETURN 
1970 REM 

1980 REM S"DRAIU BOX" 

1990 REM THIS ROUTINE DRAWS A BO 

X 

5000 REM INPUT VARIABLES : 

5010 REM XI, Yl 

- TOP LEFT CORNER OF BOX 



5020 REH 



X5, Y5 



- BOTTOM RIGHT CORNER OF BOX 
2030 REM SC 

- 1-DRAUI BOXT, O-CLEAR BOX 
2040 REM CO 

- COLOUR C IF IN CORRECT MODE 3 
20S0 REM FF 

- FILL BOX, 1-FILL, 0-NO FILL 
2060 REM 

2070 POKE DECC"F288"3 , INTCX1/25G 
3 : POKE DECC -'F5B7"3 , X1-INTCX1/256 
3*256 

2080 POKE DECC"FS89"3,Y1 

2090 POKE DECCFSBB"), INTCX2/25G 

J : POKE DECC "F28A"3 , X2- INT C X2/2SS 

3 "255 

2100 POKE DECC "F28C3 , Y2 

2110 IF C0<256 AND CO>-0 THEN PO 

KE DECC"FS1C"3,C0 

2150 SYS DECC"F28D' , 3,SC,FF 

2130 RETURN 



Zeus 




PROGRAM: ZEUS +4 LOADER 



10 REM »*•« • 

20 REM ■ 

30 REM • ZEUS BASIC LOADER PROGR 
AM ■ 

40 REM • 
• 

50 REM • CC3 COPYRIGHT 1988 M.R. 
E * 

60 REM * 



70 REM 



80 REM 

90 PRINTCHRSCS7 3"CRUSONDZEUS BAS 
IC LOADER PROGRAM" 

100 PR I NT " t DOWN] UR 1 TTEN DECEMBER 

19BB BY M . EUERINGHAM" 
110 PRINT "CDQWNDCc TDCc TDCc TDC 
c TDCc TDCc TDCc TDCc TDCc TDCc 
TDCc TDCc TDCc TDCc TDCc TDCc T3 
Cc TDCc TKc TDCc TDCc TDCc TDCc 

T3Cc TDCc TDCc TDCc TDCc TDCc T 
DCc TDCc TDCc TDCc TDCc TDCc TDC 
c TDCc TDCc T3" 

120 IF PEEKC443<>53 THEN PRINT"S 
AUE PROGRAM, ENTER POKES AND REL 
OOD M -. END 

130 RESTORE: AD^-4037 

140 FOR Ll-1000 TO 2950 STEP 10 

150 PRINT "C HOMED CD0WNDCD0U1NDCDDUI 

N3CDOWNDCDQUND5TORING LINE "LI :CH 

*-0 

160 FOR BY-0 TD 7 
170 READ OA* 

180 IF DA*<0 OR DA?i>2S5 THEN PRI 
NT"CDOWND ILLEGAL NUMBER FOUND IN 
LINE"LI : END 



190 POKE AO%+BY,DA* 
200 CH*-CHi-.+DA* 
210 NEXT BY 
220 READ UR* 

230 IF CK'-;<>UR* THEN PRINT"CDOtdN 
D CHECKSUM ERROR FOUND IN LINE"LI 
: END 

240 AD:;-AD**B 
250 NEXT LI 

260 PRINT-CDOUNDSTORAGE COMPLETE 

- DATA 100* CORRECT" 
270 PR I NT "C DOWN D INSERT ZEUS DISK 

6 PRESS A KEY TO SAUE" 
2B0 DO: GET KES:LOOP UNTIL KES 
290 PRINT"CDOWNDSAUING ZEUS BASI 
C LOADER PROGRAM. . . " 
300 DSAUE "ZEUS LOADER" 
310 PRINT"CD0UNDSAU1NG ZEUS SYST 
EM CODE ..." 

320 FOR BY-0 TO 3: POKE 20B+BY.PE 

EKC43*BY3:NEXT BY 

330 POKE 43,1:P0KE 44,16 

340 POKE 4S,2G:P0KE 46,22 

350 DSAUE "ZEUS" 

360 POKE 43,PEEKCS083:POKE 44 , PE 
EKC2093 

370 POKE 45,PEEKCS103:PQKE 46 , PE 
EKC2113 

380 PRINT"CDOUJNDSAUlNG COMPLETE 
- RESET MACHINE" 
390 END 
810 REM 

950 REM — 
930 REM • 

940 REM • ZEUS MACHINE-CODE DATA 

950 REM • 
■ 

960 REM • C START AT LINE 10003 
■ 

970 REM • 
9B0 REM 
990 REM 

1000 DATA 12,16,0,0,158,32,55,49 
,319 

1010 DATA 49,48,0,0,0,35,136,216 
,481 

1050 DATA 160,99,165,39,155,157, 
0.12,781 

1030 DATA 157,24,13,157,48,14,16 
9. 100,682 

1040 DATA 157,192,15,202,16,538, 
54,150,1004 

1050 DATA 10,165,1,54,35,57,516, 
169,671 

1060 DATA 510,160,19,32,229,18,1 
G0.4.B32 

1070 DATA 162.3,24,35,57,516,169 
, 531 , B94 

1080 DATA" 160,19,32,523,19,160,5 
, 162,786 

1090 DATA 5,24,32,57,216,169,7,1 
60.670 

1100 DATA 20,32.259,19,165,55,56 
.259,801 

1110 DATA 50,501,64,144,8,152,25 
3, 159, 1051 

1120 DATA 32, 1G0, 50,208.6,152, 54 
, 169,821 

1130 DATA 35,160,20,142,204,17,3 
2,223,839 

1140 DATA 1B,1B0,1,1G2,B,24,32,5 
7,462 

1150 DATA 215,163,33.160.20,32.2 
53, IB, 883 

1160 DATA 35,198,19,159,157,160, 
50,32,757 

1170 DATA 559,18,24,32,4,19,32,2 
49,607 



1180 DATA 18.160.19,162,8,24,32, 
57.4B0 

1190 DATA 516, 163, 1B3, 160,51 ,32, 
229. 18, 1028 

1200 DATA 32,217,235.240,251.501 
.B0.240, 1436 

1210 DATA 35,501,83,540,31,201,8 
5.540, 1116 

1550 DATA 27.203.27.208,535.163, 
32,32,331 

1230 DATA 75,235,32, 19B, 19, 163,2 
24, 160, 1113 

1240 DATA 21,32,529,18,54.35,4,1 
9,379 

1S50 DATA 56,76,4,19,32,75,236,1 
41 ,639 

1260 DATA 24,55,169.47,35,75,236 
.162,767 

1270 DATA 0,169,183,160,51,32,55 
9.1B.812 

12B0 DATA 134,11,32.237.235,540. 
251.166.12B6 

1230 DATA 11,501,57,240,500,501, 
13.240,1133 

1300 DATA 36,201,20,240,17,554,1 
6,240,334 

1310 DATA 233,230,203,32,75,236, 
157,4, 1170 

1320 DATA 25, 138, 503,535, 20B, 211 
,224,0,1238 

1330 DATA 240,216, 169, IBB, 160.21 
,32,223,1255 

1340 DATA 18,202,76,218,16,224,0 
, 240 . 994 

1350 DATA 201,13B,16B,136,1BS.4, 
22,201 , 1055 

1360 DATA 42.240,191.201,63.240, 
IB7, 136, 1300 

1370 DATA 16,242,142.25,25,169,3 
2, 32.6B0 

13B0 DATA 75,235,163,0,133,214.1 
33,215,1175 

1390 DATA 133,216,169,87.141.26. 
22, 24, BIB 

1400 DATA 32,43,19,32,138,19,169 
,220.732 

1410 DATA 160,20,32,229,18,169,2 
, 162.792 

1420 DATA 9,160,2,35,19,244,173, 
25,653 

1430 DATA 52,162,4.160,52,32,12, 
244, 658 

1440 DATA 32,83,239,32,74.13,162 
,2,643 

1450 DATA 32.24,237.32, 19B, 19. 16 
9,33,750 

1450 DATA 150,21,35,553, IB. 169.0 
,160,789 

1470 DATA 23, 133, 20B, 132,209, 150 
,0. 162, 1027 

1480 DATA 254,32,217,235,145,208 
,36,144.1271 

1490 DATA 112,75,230,208,208.2.5 
30,209,1274 

1500 DATA 202, 20B, 238,230,214,20 
B. 2.530. 1532 

1510 DATA 215,160,19,165,10,24,3 
2,57,679 

1520 DATA 216,160,3,155,214.165, 
215,32,1171 

1530 DATA 95,164,165,514,41,3,50 
B, 24,914 

1540 DATA 230,216,160,19,162,12. 
24 , 35 , 855 

1550 DATA 57,515,160,3,166,216,1 
69,0, 9B7 

1550 DATA 35,35,164,163,75,35,75 
,235,978 

1570 DATA 165,208,201,253,208,17 
5,169,0,1380 

1580 DATA 133,210.76,218,17,169, 
255,133,1211 

1590 DATA 210,163,2.32,93,238,16 
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3, 0,913 

1600 DATA 133, 15a.35.74. 19,56,32 
.43,541 

1610 DATA 19,32, 19B, 19. 169. 73,15 
0.21.691 

1620 DATA 32,229.19.174,25.22.16 
9.44,713 

1630 DATA 157.4.22,157,5,22,173, 
24 , 565 

1640 DATA 22.157,5.22,173,25,22. 
157 , 584 

1550 DATA 7,22,169,2,162,9,160,2 

1560 DATA 32,19,244,174,25,22,23 
c , 232 .903 

1670 DATA 232,232,139,162,4,160, 
22,32,382 

1 1 9 0 73S TA 1 5 " ' 3S ' 83 ' 539 ' 32 1 74 

1690 DATA 32,199,13,169.114,160, 
21 , 32 , 745 

1700 DATA 223,19,159,0,160 23 13 
3,217,949 

1720 DATA 0.120,141.63,255,177 2 
17.141,1114 

1730 DATA 62,255. BB. 32, 75,236. 23 
0,217,1195 

1740 DATA 209,2.230.219,155,218. 
197,209,1447 

1750 DATA 208.231,155.217,197,20 
B, 209,225, 1559 

1750 DATA 159,2,32.93,239,169,3, 
133 , B39 

1770 DATA 153,159,0,133,152,32,7 
4,19, 732 

1790 DATA 32,198,19,165,210,240 
15.169.1048 

4 ? 32 564 A 148,1E0 ' 51 ' 3e * 2S9 ' ia 1 £! 
1B00'daTA 4.19,56,76,4,19.169,65 

1810 DATA 141.26,22,24,32,43,19, 
32 , 339 

1820 DATA 198,19,169,220,150,20 
32,229,1047 

lB^DATA IB. 169, 2,1 52, B, 160, 2,3 

1840 DATA 19.244,173,25,22,162,4 
, 150,809 

1850 DATA 22. 32, 12,244, 32, B3, 239 
■ 32 , 656 

1860 DATA 74,19,32,138,19,159 5 
160.675 1 1 

1 ?17 B° TA 21,3E,229 ' 1B ' 1B9 - a . 1 33 

7 8 162 D 970 l33 ' 51B ' 1S5 ' 2 - 32 ' a4 .« 

1890 DATA 254,32.217,235,202 209 
.250,230, 162B 

5S 3 240 AT ^ E39,1B ' 1B0 - 0 ' 1B5 . i?55 .e 

rsiH 56 ' 32,75,536,500 ' 509 ' 24 

1950 DATA 169,99,150,20,32,229 ,1 
B , 24 , 750 

B0 G 642 ATA 76 - 4 ' 19 ' 17G - B - 1BB .3a.l 

1970 DATA 3.208.4, 169, 19B, 160.2, 
141 , 985 

19 .05 770 A I7,55S,1B0 ' llB ' 1B9 ' O .2'4 

2000 DATA 1.209.251,136,208,249, 
140,17,1209 

2010 DATA 255,95,9,32,199,19,-0, 



176, 924 

2020 DATA 6,169,159,160,20,208 4 
,159,994 

2030 DATA 188,160,20,32.253,19,3 
2 , 249 , 92B 

2040 DATA 18,32,217,235.201,13.2 
09,249,1173 ' 

2050 DATA 96.160,S ( 162.1B.24,32. 
57 , S54 

2060 DATA 216,169,1,162.3,160,15 
i 32, 763 

2070 DATA 19.244.169.0,32,12,244 
• 32 , 752 

2090 DATA 83,233,152,1,32,24,237 
, 32, B10 

2030 DATA 217, 235, 201, 49, 20B, 14 
169.1,1033 

2100 DATA 32.93,238,159.0,133,15 
2,169,986 

2110 DATA 3, 133, 153,96,133, 11,16. 
9, 194,992 

2120 DATA 160,21.32,229,18,165,1 
1 ■ 32 , 569 

!ir 0 -,5 fiTA 7S . 53G . 104, 104,32,207. 
504,32,394 

2140 DATA 184,201.169.2,32.93,23 
B,169,10BB 

20 S 713 flTA 1 ' 35 ' 93 ' 53B ' ie0 - 7 .152. 
6^21 D 979 S4 - 3? ' S7 - 51B " 1B9 . ^0,1 
| 170 E °«TA 32,229,18.32.249,13,16 

5 4 B 552 ATA 1B0,51 ' 32 ' eS9 . 1B .S B .32 

^■L 90 ° ATA ™>&. 32, 4, 19,32,217,2 
35 , 582 

fr62TB2 201 - 13 ' M8 ' 241 - 9S ' 1B0 - 
221^DATA 19,24,32,57,216.56,76, 

^| 4 DATfi 19 - 90. B9, 95, B3, 32,77,6 

2230 DATA 71 , 6S , 67 , 79 , B0 , 73 , 69 , B 
c . 596 

2240 DATA 32.86,50,46,54,0,87,82 

2250 DATA 73 , B4 , 84 , 69 , 7B , 32 , 56 . B 

9 , 575 

^DATA 32, 77,46,92, 32,69,96,6 
| 8 5S0 DATA BE ' 73 ' 7B ' 71 - 72 .55,77.3 
5 4M ° ATA 49,S0,47 ' 5B ' S5 ' 0 - B3 - 79 
2 2 571° ATA 70,B4 ' 87 - B5 ' B5 - B9 .35. R 
2300^DATA 85,78.78,73,78,71,32.7 

%l DATA 7B ' 35 - 67 . SB . 77 .32,0,43 
2320 DATA 52, 0.67, 49, 54, 0.B4, 89, 

2330 DATA 90,69,47,70.73,76,69.7 
n . bad 

| 34 | 3 DftTfl 65,77,69,59, 13, 13,32,6 
2350 DATA 76,79,57,75.93,32,57,7 

- , b jB 

B3S0^DATA 80.73,59.66,58,32,32,3 
5^3S9 DATA 35 ' 45 ' 13 - 13 - ^.75,73,7 

2380 DATA 79,66,89,94.59.93,32,6 
/ , bbS 

5 3 504 DATA 79 ' 80 ' 73 - B9 1 eB .".3e i 4 
2400 DATA 0.32, IB, 92, 69, 94, B5, 82 

£4 i 0 79,145,27,91.145.27,90 
• ib/ , /41 



2430 DATA 164,164,154,27,61,0.69 
, 79, 747 

2440 DATA 84,69,92.32,67.79,80,8 
3 , 582 

| 4 Ia8 DATA 32,70 ' 73 ' 7B ' 6B ' 49 . 7 8,6 

0^01 DATfl 77 ' a 9 , 32 , 65 , 78 , 68, 32, B 

2470 DflTfi ^.89.93,93,0,32,73,78 
, 500 

2480 DATA 83,59,82,84,32,83,79.9 
2490 g DATA 82,67,69,32,69,73,63.7 
p S ?L DflTP 32 ' 65 - 7B .SS. 32.90,92, 6 

3 , b0Q 

^SS 0 ° ATA B3 ' B3 ' 0 ' 73 - 7B . B3 .59,B2 
252^DATA 84,32,68,63,83,84,73,7 

3^L DATA B5 ' B4 ' 73 ' 79 ' 7B .3a.68,7 
l^49l DATA 83,75 ' 3B - 3S . 3 2.80,82. 6 
25S0 DATA 83,63,0,32.32,32,32,45 
3 5B j43 DATA 3 *> 83,63,65,92, 67, 72, 7 
I^DATA 78 . 7! , 32 , 70, 73 . 92 . 35 , B 
25B0 7 DATA 79, BS, 82, 67, 69. 32, 70. 7 

27 9 l 0 2 flTft 7B ' B9 - 35 ^ 9 .2 7 .B1,145, 
2600 DATA 80,27,81,0,32,32,32,32 

26l0 g DATA 45,32,92,59,65,68,73,7 

2620 DATA 71,32,83,79,85,62.67,6 
9 i 56B 

2630 DATA 35,70,73,76,69.32,69,5 

b , 485 

2640 DATA 94,65,32,45,32,0,32,32 
1 S 429 DATA 35 - 35 ' 45 ' 32 - 7B . 79 .65.6 

2660 DATA 73,78,71.32,83,79,85.8 

c , bH3 

2670 DATA 67,65.32,70,73.76,69.3 

C , TOO 

5 || 0 D °TA 69,55,84.65,32,45,32,0 

2550 DATA 32,32,32,32,32,45,32,7 
9 , 316 

2700 DATA B0, 69, 78, 73, 78. 71, 32, 6 
9 , 549 

3 ? 609 DATA 6B ' a3,B4 ' 73 ' 7B ' B5 ' B4 . 7 
2 7 509 DATA 79, 7B.32.70, 73,76.69, 3 

B1 3 513 ATA 45 ' 57,81 ' 145 '2 7 ' B0 '2 7 . 
2740 DATA 0,32,32,32,32.32,45,32 

2 7 |a0° ArA 87,8e ' 73 ' 84 - 73 - 7B - 7 i.3 

2760 DATA 68 , 65 , 84 , 65 , 32 . 84 , 79, 3 
2,509 

2770 DATA 78,59,87,32,70.73,76,6 
9 , 554 

2790 DATA 32,45,0,32.32,32,32,32 

2790 DATA 45,32,67,79.90.99,73,7 
9 , 543 

2800 DATA 71,32,80.82,73,57,59,8 
3 , 563 

2B10 DATA 83.32,67,79,77,80,76,6 
3 , 563 

2820 DATA 84,69,32,45,13,0,130,1 
54 , 537 

2B30 DATA 132,157.0,32,157,157,3 
2.157,824 

2840 DATA 0, 32, 32, 32, 27, Bl, 0,80, 
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2B4 

2BS0 DATA 
,450 

2B60 DATA 
7,565 
2870 DATA 
,398 

2880 DATA 
8,258 
2880 DATA 
5,535 
2300 DATA 
9.55H 
2310 DATA 
81,506 
2920 DATA 
2930 DATA 
2940 DATA 
2950 DATA 
7 



82,59.83,83,0,17,32,84 

79,32,55,67,75,78,79,9 

76,59,68,71,69,13,0,32 

32,32.32,32,32,32.32,3 

45,32,80,82,79.71,82,6 

77,32,65,66,79.82.84,6 

68,32,45.27,81,145,27, 

17,17,0,0,0,0,0.0.34 
0,0,0,0,0.0.0,0.0 
0,0,0,0. 0,0. 0.0. 0 
0,0,0,90,69.85,83,0,32 



Multi-Precision 
Arithmetic 




PROGRAM : flULT IFRES - LOAD 



59 10 A-491S1 

A5 50 FCPJ-1T021S7 

A0 30 READB: 1FB — lTHENPRINT'-TDD 

FEU DATA ITEMS " : END 
E4 40 C1-C1*B;C2-C2*B»J 
EC 50 PDKEJ-A.B 
BE 60 NEXT 

CF 70 IFC1O2B4305 OR C2O30252 
774 THEN PRlNT"CHECKSuri ERRD 

R" 

4D 80 SYS49152:CLR 

B2 90 PRINT"R0UT1NES INSTALLED" 
: END 

B6 100 DATA169.0. 160,30,153,166 

,2.136,20B,250 
D4 110 DATA169, 128,141,158,2,13 

3,56. 169, 160. 141 
77 120 DATA173.2, 159,176, 141, 17 

8,2, 169,224, 133 
69 130 DATA4. 141,183, 2. 169, 240, 

141, 198,2,32 
B5 140 DATA191, 193,32, 169. 193.1 

60,0,132,3,169 
Fl 150 DAT AO , 145 . 251 , 145, 253, 14 

5.3,200,208,247 
A3 1E0 DATA23B,4.230,252,230,25 

4,169,160,197.254 
CD 170 DATA208.233, 169,83, 141,8 

,3, 169, 192, 141 
23 180 □ATA9,3,96,32, 115, 0,240, 

4.201 ,35 
9E 190 DATA240.3,76,231,167,32, 

103, 192, 163,0 
0D 200 DATA75. 174, 1S7, 162,0,160 
, 1 , 136,202, 200 



47 210 DATA232, 177, 122, 16,3,76, 

8,175.56,253 
72 220 DATA176. 192,240,241,201, 

128,208,28,200, 152 
03 230 DATA24 , 101 . 122 . 133 , 122 , 1 

69,0, 101, 123, 133 
Bl 240 DATA123,232.1B9.176,192, 

133.3,232, 1B9, 176 
5B 250 DATA192, 133,4, 108,3.0,20 

2,160.1,232 
05 260 DATA1B9, 176, 192, 16,250,2 

32,232,232,189.176 
DA 270 DATA192.208, 188.76,13, 19 

6.65.BB, 193, 116 
78 280 DATA194.65.89. 193, 132, 19 

4,55.65, 193,53 
SE 290 DATA200,84,65,216,10.194 

,84,65,217,53 
F3 300 DATA194,84.B9. 193,223, 19 

3, 84, BB, 193,202 
22 310 DATA193, 67, 6B, 193,82, 196 

,67.89, 193.91 
4B 320 DATA196, 83, 88, 193,232, 19 

4,83,89,193,4 
32 330 DATA19S, 77. 88,193, 100, 19 

6,77,B9.193,1B2 
9F 340 DATA199.77. 65, 212,69. 200 

, 73, 7B, 216.94 
ID 350 DATA200, 68, B8, 133,6, 198, 

68,B9,193,2S3 
B6 360 DATA197, 76, 196, 125, 193,7 

5,208,91, 193,73 
0A 370 DATA206, 104, 195, 83,73, 19 

3, 191, 199, B0, 82 
8A 380 DATA193.27, 199.69,84, 193 

.219, 198.69.BB 
8F 390 DATA193.80. 199, 59,89, 193 

,114,199,69,88 
A6 400 DATA217, 148.199, 0,32, 121 

,0,72,32,115 
FB 410 DATA0,104,201,84,240,7,2 

01, 6B, 240, 5 
D9 420 0ATA76.B, 175, 162,1,44, 16 

2,B, 160, 1 
31 430 DATA 169 . 1 ,32 , 186, 255 , 32 , 

158, 173. 165.97 
48 440 DATA166 1 9B 1 164,99.76,189 

,255,32,48,193 
95 450 DATA 173, 167 , 2 , 133, 251 , 55 

, 109, 169.2, 170 
51 460 DATA173 , 168, 2. 133 , 252 , 10 

9, 170,2, 168, 169 
67 470 DATA251, 32, 216, 255. 175.1 

,96,170,76,55 
DE 480 DATA164, 32, 77, 195,32,48. 

193,169,0.32 
58 490 DATA213. 255, 176, 3,76, 148 

,194,170,76,55 
F2 500 0ATA164, 162, 16,32,61, 195 

,160,0, 177.251 
ID 510 DATA145.2S3. 200. 208,249, 

230 , 252 , 230 , 254 , 202 
2E 520 DATA208, 242,76, 68. 195, 17 

3, 172.2, 133,251 
26 530 0ATA173 1 173,2,133,252,96 

,173,187.2.133 
11 540 DATA251, 173, 188.2. 133,25 

2,86, 173,167,2 
72 550 DATA133 , 253 , 173 , 16B, 2, 13 

3,254,96,173,174 
F3 560 DATA2 . 141 , 169 , 2 , 173 . 175 , 

2,141.170.2 
C5 570 DATA32 , 169 , 193 , 32. 191,19 

3,76, 145,193,173 
08 580 DATA179, 2, 141.169,2, 173, 

1B0, 2, 141,170 
18 590 DATA2, 32.244. 193, 32, 131, 

193,76, 145, 193 
6D 600 DATA173,177,2.133,251,17 

3.178,2.133.252 
15 610 DATA96. 173, 172,2, 133,253 
,173,173,2.133 



B3 620 DATA254. 96. 173. 169, 2,141 

,174,2, 173. 170 
E5 630 DATA2, 141. 175,2. 32, 255,1 

93.32,31.194 
A3 640 DATA76 , 145 , 193 . 173 . 167 , 2 

,133,251,173,168 
9C 650 DATA2. 133,252.96, 173, 177 

,2.133,253,173 
CO 650 DATA178.2, 133,254,96, 173 

,169,2,141.179 
6A 670 DATA2, 173, 170,2, 141, 180, 

2,32,31,194 
Dl 680 DATA32.42, 194,76,145, 193 

,248,32,61,19s 
0A 690 DATA160.0.24, 177,251, 113 

,253, 145,253,200 
B2 700 DATA208,247.230,252,230, 

254,202,208.240,169 
BE 710 DATA0, 113,253, 145.253,23 

0,253,208,2,230 
75 720 DATA2S4,176,242,216,32.E 

8,135.96,32,191 
46 730 DATA193.32, 169. 193, 174,1 

75.2.232,32,74 
66 740 DATA194.76, 148, 194, 32, 19 

1,193,32,244,183 
19 750 DATA174,1B0,2,232,32,74, 

134,76, 148. 184 
BA 760 DATA169, 255, 133,251.159, 

159, 133,252, 160,0 
26 770 DATA168, 0,209, 251, 208, 25 

, 198,251 , 169,255 
AB 780 DATA197, 251, 206.242,198, 

252.169.127,197,252 
B9 790 DATA208.234, 153.0, 141,16 

9,2.141,170.2 
71 B00 DATA96,165,2S1.141,159,2 

,165,252,56,233 
D4 810 DATA12B , 141 , 170 . 2 . 96 , 248 

,32,61,195,160 
47 820 DATA0 , 162 , 16 , 56 . 177 , 253 , 

241,251,145,253 
65 B30 DATA200.20B,247,230,252 1 

230 , 254 . 202 , 208 , 240 
1A B40 DATA216, 76,69, 195,32, 16, 

196,32,32,196 
B3 B50 DATA32, 13, 195, 165,2, 16,3 

,32,13,196 
CB B60 DATA32, 169, 193,32, 191. 19 

3,32.203. 184,76 
E8 B70 DATA14B. 194.32. 148. 199,3 

2,232, 194,76, 148 
5E B80 DATA 199 , 160 , 255 , 162 , 15, 3 

2,61,195.177,251 
55 880 DATA209, 253, 240, 16, 144.7 

,169,255,133,2 
FC 900 DATA76.59, 195, 169, 1, 133, 

2,76,69,195 
BF 310 DATA 136. 192 , 255 , 208, 229, 

198,252, 19B,254,202 
9A 920 DATA20B.222, 169,0. 133,2, 

76,69, 195, 155 
BB 930 DATA1,41,2S2.120.133,1,9 

6, 165. 1,3 
4A 940 DATA3, 133 , 1 , BB , 96 . 173 , 16 

7,2, 133.253 
86 950 DATA 173 , 16B , 2, 133, 254 , 16 

9,0, 160,0, 162 
AD 960 DATA32, 145, 253,200, 208,2 

51,230,254,202,208 
F6 870 DATA246, 86, 32, 77,135,169 

,255.133,253,169 
CH 980 DATA 159, 133, 254 , 32 , 229, 2 

55,240,251,201,20 
67 990 DATA20B, 23, 32.210,255,23 

0,253, 20B, 240. 230 
05 1000 DATA254, 169,0, 16B, 145,2 

53,159,160,197,254 
ID 1010 DATA240,216.76, 115, 195, 

201, 13,240,38.201 
F4 1020 DATA4B, 144 ,216, 201 , SB, 1 
76,212,72,32,210 
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CE 
91 
OE 
08 
B5 
IF 
00 
2D 
42 
64 
30 
9B 
E9 
7F 
33 
74 
19 
BF 
09 

20 

SB 

01 

D7 

13 

50 

2F 

9C 

E9 

0C 

SE 

□9 

F3 

SB 

17 
05 
23 
ES 
B0 
55 
IB 
7B 



1030 0010855,104,41.15,160,0 
,145,553,198,853 
1040 0070165,253,201. 255, 208 
.193,199.554,155,554 
1050 0070201,127,208.185.76 
9,175,38,810,255 
1060 0010230.253,808,2,830,2 
54,160,0, 169, 12B 

1070 0070138,251.133,552,177 
,253,133,8,169,0 
1083 DOT014S, 253.230,253.808 
.2,230,254.165,254 
1093 DOTO801 , 160,240,35 177 
253,10,10,10,10 ' ' 

U00 D0T05.2, 145,251, 169,0,1 
45,253,230,253 
1110 OOTO20B.2,230,854.155,2 
54,201,160,240.13 
1120 OOTO230, 851 ,208, 2,230 8 
58,76,206, 195, 16S 
1130 0OTA2. 145,251,32. 14B. 19 
4,35,78,8,175 

1140 0010173,167,8.24,105,0, 
133,853,173,168 
1150 00102,105,15.133,854,96 
.24,173,172,2 

1150 0070105,0,133,251173 j 
73,2,105.15,133 

1170 D0T0252, 98,24, 173, 187.2 
, 105.0, 133,251 

1180 D0T0173, 188,2.105, 15,13 
3,252,98,24.105 
1190 0ATA15, 173, 177,8, 105,0, 
133,251, 173, 17B 

1200 00102.105,15.133.252,95 
.32, 15, 186,32 

1210 001038,196,76,13,195,32 
,16,196.32,64 

1220 0010196,76,13,195,32,31 
.134,32,233.196 

1230 001032,145,133,173,169, 
2,141,1B4,2,173 
1240 DOTO170,2, 141, 185,2.38 
16,198,38,38 

1850 0010195,32,13,195.16,34 
.32,31,194,32 

1260 0010844.196,32,71,197,3 
2.81, 197,32,200 

1270 0010196,173,174,2,133,1 
01, 173, 17S. 2, 133 
12B0 0010102,38,77,195,32,10 
3,197,76,149,194 

1290 DAT032, 169, 193,32,244 1 
95,38.71.197,32 

1300 001092,197,38,49,197,17 
3,169,8,133,101 

1310 0010173,170.2,133,102 3 
2,77,195,32,103 
1320 0010197,75,148.194,173 
182,8,133,5,173 
1330 0010183,8,133,6,96,173, 
157,2, 133,5 

1340 0OTO173, 168,8, 133,6,96. 
173,182,2,133 

1350 0010851,173,183.8,133 8 

52,96,173,188,8 

1360 0OTO133,2S3,173,183 2 1 

33,254,96,168,16 

1370 DOT032.61. 195.160,0, 132 
,2,173,187,2 

1380 0010133.253.173,188,2,1 
33.254.177,251,78 

1 253 i^ 010,10 ' 10 ' 10 ' 5 ' 5 - 1 ^ 

1400 ' DOTO 74 , 74 . 74 , 133, 2, 800 
20B, 835, 830, 252 

1410 DOTO230, 254.202, 80B,28B 
.173,187.2.133,3 
1420 DOTO 173, IBB, 8, 133 . 4 32 , 
59.195,86,173 

1430 0070178,2,133,5,173,173 
.2,133,6,95 



10 ^.re^iai 3 ' 157 ' 2 ' 133 ' 37 

78 1460 D0T088, 168,3, 189, 178 8 
149.99,202.16 

14 1470 0010248.96.162,3,189,18 

2,2,148,99,208 
93 1480 DOTO15.24B,95.160,0,32 
61,195,177.98 

EC 1490 001072,32,69,135,104 78 
.41,15,840,30 

3.165,98,133,254 

HB 1510 DAT0165.S, 133,251,165,6 

,133,252.174,175 
82 1580 D0T02, 832,232,3e, 74 194 

.198,8,208,228 
02 1530 DOTO104,74,74,74 74 41 

15,240.29.133 ' ' ' 

77 1540 D0T02, 165.97, 133,253, 16 

5,98, 133,854, 165 

CB liil.^^r 551 ' 165 '"' 133 

84 1570 0010808,2,230,98.830,93 

,208.2,230,100 
BE 1580 00TO18B. 101, 163,255 197 

, 101 ,208, 151, 198, 108 
SB 1590 001016,147,96,160,0,152 

,162,16, 145, SSI 
31 1500 DOTO800,80B,251,830.2S2 

,208, 80B.846, 96, 38 
60 1510 DOTO1B0, 183, 76, 813 197 

32,159,183,76,213 
U 1680 D0TA197, 38. 844, 133,76 8 

13, 197,32,882, 196 
62 1630 D0T076,813, 197.32. 148,1 

99,32,5,198,76 
CE 1640 DAT014B, 199,32,229, 197, 

32.847,187,32,168 
18 1650 0OTO193.32,244,195,56,l 

73,163,2.237,174 
38 1660 0AT02, 141,193,2,173,170 
,2.237,175,2 

95 1670 DATA15,3.75,13,196.141, 

194,2,24. 173 
28 16B0 DAT0157, 8. 109, 183,2,141 

, 187,2, 173, 168 

84 1690 0OTO2, 109, 184,2, 141 16B 
.2.84, 173, 193 

F3 1700 00108,108,168.2,133,3.1 
73,194,2,108 

A9 1710 0010183,2,133.4,189 0 1 

33,151,32,48 
70 1780 0010196,32.16.186,32,13 

.195,165.8,48 
30 1730 001014,32,180,193,32,18 

1.133.32.203,194 
78 1740 DOTA830, 151,78,88, 198, 3 

2,61,195,160,0 
40 1750 DATR165.1S1, 10.10,10,10 

,17.3,145.3 

59 1750 0ATO132. 151.38,59, 195,3 
2,32,198,32,16 

60 1770 0010196,32,13,185,165,2 
,4B,14,38,168 

B6 1780 0070193.32,191.193,35 5 

03.184,230,151.76 
D4 1790 0010189,198,32,61,185,1 

60, 0,16S, 151,17 
06 1B00 00103,145,3,132,151.32, 

69,195,206,167 
9F 1810 00102,173,167,2.201,255 

,20B,24.20B, 168 

F6 1820 D0T08, 173, 168,8,801, 127 

.208, 14, 169,0 
06 1830 DATA141, 167,8,169.189,1 

41,188,8.76,148 
70 1840 0ATO194.96. 18B.3 165 3 

201.855.20B.2 ' ' 



67 
58 
E8 
CE 
EE 
75 
E3 
BC 
98 
3C 
02 
C6 
D3 
BC 
3B 
0C 
47 
56 
CF 
IB 
34 
47 
IF 
3B 
33 
88 
01 
10 
86 
Al 
F5 
B8 
76 
69 
70 
4B 
7F 
65 
60 
4B 
74 



^a^i 4 ' 75 ' 85 ' 138 ' 35 - 

1850 0010194.38,253,186,173 
165,2,174,170,2 

1880 0070168,8,141, 168, 8 i«B 
.184,8,96,152 

1900 0OTA853. 145,851, 104, l^s 

.253,200.208,243,230 

1910 0070852,230,854.808,806 

.236,75,89,195,172 

1920 D0T0168,2, 169,0. 133,553 
,173,170,2,84 

1930 OO7O109,15B,2,133 854 
77,853,72,41,240 
1940 D0T074, 74,74, 74,24, 10S 
48,32,810,855 

1950 0070104,41.15,105,48,32 
.210,255,136,192 

1960 OA7A255.208,22B,19B,2S4 
,48.884,169,13.76 
1970 0070810,855,38,255,183, 
32,31, 194,38,853 

19B0 D07019B, 173.175,2, 174,1 
70,2,141,170,8 

199 ® DA J fl 148, 175,8,173,174,2 
.174,168,2,141 

2000 0A7A169,2 L 142, 174,2,96. 
32,42.194,32 ' ' ' 

2010 DA7A31, 194. 38,853, 198,1 
73,180.2,174,170 

2080 DO7O2,141,170,2,142.1B0 
.2,173,178,2 

2030 DA70174, 169,8. 141, 189 2 
.142,178,2,86 

2040 0A7O32,42,194,32,163.18 
3,32,853. 13B, 173 
2050 OO7O1B0.2, 174, 175,2 141 
.175,2,142,180 

2060 00708,173,179,2,174,174 
,2,141,174,2 

2070 0070142,178,2,36,38,148 
,189,32,100.186 

8080 007076,148.199.32,241 1 
74,32, 163, 1B8, 133 
2090 DA7A2, 38, 77. 195.168,855 
.133.2S3.163.158 
2100 0070133, 254.160,0, 177 3 
4,230,34,808.2 
2110 0070830,35,188,8,201,32 
.240,240,201,45 
2120 0070240,238.201,43,240 
232,201,68,240,35 

2130 0070201,48, 144, 2B, 201, 5 
B , 176, 24 , 41 , 15 

2140 DO7O14S.253,165.2,240.4 
2, 198, 853, 165,253 
2150 DATA201 , 255 , 20B, 204 198 
,254,165,254,201,127 
2150 DA7A80B, 198.76,8, 175,38 
.lBl, 183,38,847 
2170 0070183, 165,20,840,243 
163,855.56,828.20 
8180 0070133,853,169,159,229 
.21.133.254,198.853 
2130 0070185.253.801.255,208 
,2.198,254,76,138 
82E0 DA7A195,32,191,193,32,3 
1.194,174,170,2 

2210 DA7A238, 32, 74, 194,76, 14 
9,194,32,31,184 
2220 0A7O32,244,18B,173,ia7, 
2, 133,253. 173, 18B 
2230 00702,133,254,32,31,194 
.32.253,198,76 

2240 0070148,194.32.855,193, 
32.61, 195,24,248 
2250 0070169,1,160,0,76,99,1 
94, -1 
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YOUR COMMODORE 



Lineage: 58p per word. mm mm 

(including VAT) ' 1 1 w^m 

Semi display: £10.95 plus VAT per single column 
centimetre minimum 2cm. Ring for information on 
series bookings/discounts. 

All advertisements in ihis section must be prepaid 
Advertisements are accepted subject to the terms and conditions 
printed on the advertisement rate card (available on request). 



01-437 0699 

Send your requirements to* 
CLASSIFIED DEPARTMENT 
ASP LTD. 1 GOLDEN SQUARE 
LONDON W1R 3AB. 



SOFTWARE 



SPECIAL 
OFFER 



SERVICES 



DISKS 



YOUR COMMODORE 

SPECIALS 
TECH DRAW 64 - A 

comprehensive technical 
illustration aid for C64 
owners (or both disk and 
tape. Commands available 
include LINE DRAW. RAYS. 
BOX, CIRCLE. ARC, 
ELLIPSE, FREEHAND. FILL. 
HATCH & TEXT. Wipe copy, 
move and rotate, save and 
load or print your drawing all 
for £8.95 tape or disk. Order 
Codes TD64T (tape) TD64D 
(disk) 

Full details in Your 
Commodore July 7907. 

SPEEDY ASSEMBLER 

Your Commodore's very own 
Assembler, a 100% memory 
resident program for loading 
from tape or disk, featured in 
the Your Commodore 
Machine Code Series and 
now the Y.C. standard 
assembler only £9.95 Tape or 
Disk. Order Codes 
YSPASSD (disk) YSPASSR 
(tape) 

Order from Your Comm- 
odore Readers Services at 9, 
Hall Road, Maylands Wood 
Estate, Hemel, Hempstead 
Herts HP2 78H. Please make 
cheques payable to A.S.P. 
Ltd.. or telephone your 
Access/Visa order on 
0442 41221 



T.C. COMPUTERS 



Tel: Wantage 02357 60177 



1340.00 



£59000 
t»31 00 

€309 00 

E7HrM 



AMIGA AS00 • I V Modulator 
AMIGA A500 • I0B4S 

(Now Stereo) ►-• 

AMIGA AEOO • 'Mq Disk D"vo 
AMIGA AS00 SUPER PACK , , 
AMIGA System 500 Colour ... 

Also Atari ST and PC CarnpnMitos 
including Amslraa available 
ENQUIRIES WELCOME 
Please send S.A.E. (or details - 
NOW AT- 

12A Bernards Way, Charlton 
Heights, Wantage, 0»on 
OX12 7EB 



Youll never believe 
OUR PRICES 



and you will never find out 
unless you write or phone for 

our free price list NOW! 
(well even pay the postage!!) 



< rofton Micro Supplies. 
FREEPOST. 
London. SE4 2BR. 
I elrphune. 01-469-3246 



YOUR 

COMMODORE HAS 
RATES TO SUIT 
ALL ADVERTISERS 
NEEDS SO 
ADVERTISE YOUR 
PRODUCTS AND 
SERVICES HERE. 



COMMODORE SUPPLIES 

CM Power Supply £19.95 
CBM Plus 4 Power Supply £29 95 
C-16 Power Supply £12.95 
IG30 Daiasette £27.95 
IG31 Daieaelte £27.95 
Azlmutn head alignment Ml £9.95 
Serial Lead {lor d/dnve/printet) 

£5.95 

CIW rewl Switch £4 95 

Dust Cover (please stale computer) 

£3.50 

Prices include VAT & PAP Allow up 
to 14 days lor delivery Chq/PO (o: 
Omnidate Lid. 23 Curzon Street, 
DorOy, DE1 2ES. Tel 0332 291219. 



DISCOUNT SOFTWARE 

Up IO 21% ulf flRP lor ATARI. 
COMMODORE. SPECTRUM. AMSTBAO. 
BBC. MSX and IBM PC Ring tor Into Pack 
on any ol the above matures 24 hour 
HOTLINE. 0455613377. 



B. BYTES COMPUTER SYSTEMS. 
19 Soulnllcid Rood. Hinkley, 
Leicestershire LEI0 1UA. 
ATARI SPECIALISTS 



COMMODORE Keys Mis- 
printing? "datamecs" contacts 
need fitting! SAE replies only. 
199A Sale Lane, Tyldesley M29 
SPG. 



FOR SALE 



PSYCHOLOGY PLUS 

Analyse your character traits Fully 
documented £8 00 C64/C1M Oisk only 
Disk Mate The ultimate 15*1 tool *lt 
package 
ESOTERIC 
15 L an moor Estate, Lanner. Redruth, 
Cornwall. TH16 6MN. 



TELEPHONE 
01-437 0626 
TO ADVERTISE 



Why Take Risks?- Buy Branded 
disks. 

GOLDSTAR 3V " DS/DD DISKS 

Boxed in 10's\ 100% en or Iiee, 
Branded. Fully Guaranteed, includes 
Labels. 

£8.30 + VAT Per box ©r 10 

PLEASE ADD 87p * VAT FOR P&P 
Goods sont same day as order 
received 

P.V. TUBES (MAIL ORDER 
DEPT.) 

104 Abbey St., Acciington, Lanes, 
BBS 1EE 

Tel: (02S4) 36521/32611/390936 
Fax: 0254-395361 

PARTNERS: Mrs. S. CuckneU/Mi. B. 
Cucknell £3 



TERMS AND 
CONDITIONS 



CLASSIFIED ADVERTISING 
TERMS & CONDI HONS 

Our Mm *o« "ew advertisers ■ ■»■■ i -display 
and lineage! are srrieir. oro-ro'mB pay menu 
'j ■' i satisfactory reference can be lalen up 
(excluding recognised edve'iismg agencies) 
Chequei and P O t should be crossed and 
made payable id ARGUS SPECIALIST 
PUBLtCAIIONS LTD. end sent lofleine. wnn 
the advertisement irr 

"TheCUiil'iedOapi . 
No. 1 Qolden Square. 

London Win JAB 
There are no reim©u>semeni» (or can- 
cellations Advertisements arriving loolaietor 
a particular issue wal be inserted m the 
In I lowing issue unless eeeomoented by 
mstrucinns to the ennttary I) is I he res- 
ponsOiiity ot I he advertise* to ensure that tte 
lirst insertion ot every series is published 
correct**, and correciions mull be nonlied in 
lane tor the second insertion, otherwise Ihe 
Dufttishers — 1 nor ectepr eny liabi'iiy or r- ■ 

any reduction m charges 
An advertising sales are sutaeel IO Govern- 
meni Regulation! concerning VAT 
Advert tiers are responsible 'or comol ring <■ ah 
Ihe ver louslegel reauirememsmlorceeg Pie 
Trade Descnpton Act. aaidiscritrii nation acift 
the business advert > semen u 
■■■'•:+■ ' - ' ' 
fuH If it's ft Condition! ol id-minny 

•■erJeo/e on > eeueif 



Repairs 
Guide 

CALL 
ANNA EDDIE 



"COMPUTER KAPUT?" 




PET V1C20 
PLUS4 C16 
C64 CI 28 
AMIGA... 

FAST 
EFFICIENT 
SERVICE 



9 FOR REPAIRS CALL 
01-861 2835 
(NW LONDON-HARROW) 



COMMODORE SPARES & REPAIRS 

90B'I4-01 IS SO 

8610 OM 

668ft 12240 

fweciA n.» 

6681 sid mm 

90t22'-CP ,, aH! * 

901Z26-01 'IfE 

9O«S*0I i- f 

■501 - «™ »"«. 

m " 

■ ■ (Joystick.. JkAtflV Jll 

&sEf. t'z'i i ' 

C3« Cassette Unit *■ 

CUSPovrnrpeek ""IO 

tNCL VAT 4 P6P 
DepL 4C, 14 RIDGEWAY ROAD. SALISBURY, 
WILTSHIRE, SP1 3BU. TEL: (0722) 335061 




O N 

01—437 0699 



WHY NOT ADVERTISE YOUR REPAIR SERVICES HERE IN 1989 
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Repairs 
Guide 

CALL 
ANNA EDDIE 
O N 

01—437 0699 




COMMODORE REPAIRS 

(with FREE extended guarantee) 
COMMODORE 64 £28.70 
COMMODORE 128 £36.70 
COMMODORE 

C16A4/VIC 20 £20-70 

Price is all inclusive and we guarantee the 
whole computer for six months 

KPR MICRO, 

34, Petunia CrescenI, Springfield 
Chelmsford, Essex CM1 5YP 
Tel: 0245 -468554 



HINDLEY ELECTRONICS 
COMPUTER REPAIRS 

STANDARD CHARGES 
Commodore 64 £25.00 
Commodore -4 C25 qq 
Commodore C16 (21 00 
Commodore VIC 20 C18O0 
For commodort tC's and Disk Drive repairs please 
ring lor details. 
All prices inclusive of VAT and return postage 
including insurance 3 months warranty on repairs 
with average 24 hour turnaround. 
Dopt YC. B7 Market Stnwl, Hlndtey, Wtgan. 
Tel: (0942) 522743 
{The standard charge may not apply to machines 
wrih multiple faults J 



VTS COMPUTER REPAIRS 



01 - 407 9829 

Simply send your unil to the address below 
securely packed with fault description and 
max fee. 

'COMMODORE, AMSTRAD, BBC. SINCLAIR 
- MORE E28.00 



VTS COMPUTER REPAIRS 



12 Lyly House, Gl. Dover Slreel, 

London, SE1 4EQ. 
FAST. RELIABLE TURNAROUND 



THE TELEPHONE 
NUMBER AT THE TOP 
OF THIS PAGE IS FOR 
ADVERTISERS ONLY. 
WE ARE UNABLE TO 
ISSUE DETAILS OF 
REPAIR CENTRES 
OTHER THAN THOSE 
ADVERTISED HERE. 



FOR FAST. RELI ABLE AND PRflFFSSinNAl 
REPAIRS AT COMPETITIVF PRIRFR 



P M ENGINEERING 

UNIT 260, MILTON SCIENCE 
PARK, CAMBRIDGE CB4 4WE 

air- dves pi mm 




We can also supply Hardware, Software, Blank Disks, 

Accessories and Spare parts. 
CM Repairs £19.95 Inc. VA T (p&p FREE) 



REPAIRS 



AMIGA ATARI etc. 
MONITORS & ALL ADD ON,s. 
AMIGA UPGRADES AND MOD.s 
All estimates FREE 
Prices from only £19.50 
Call or post FAST TURNAROUND 



PVS ELECTRONIC COMPONENTS 

244 Deansgate Court, 
Deansgate, Manchester M3 4BQ M 
Tel: 061 831 7086 Telex 668986 W 
Fax 061 832 6934 



ms 



COMMODORE SERVICE CENTRE 

Fast repair service to»> 

* VIC 20 * C16/-4 * CBM 64/CBM C64* 

# CBM 128 * AMIGA * DISC DRIVES * 

* all other makes as well * 
All units repaired to onginal standard by fully 
quallUed staff. All repairs guaranteed 
* We stock spares for all computers # 
Mail orders and phone o'dors, access A visa 
accepied 
Personal callers always welcome. 
* On Ihe premises repairs, quick lum around * 
QUANT AM ELECTRONIC SERVICES, 
33 City Arcade, Coventry, CV1 3HX. Tel: 0203 224632 
or 0926 137648 



CROYDON COMPUTER 
CENTRE 



25 Bngslock Road, Thornlon Hea 
Surrey. CR4 7JJ Tel: 01 683 2646 



COMPUTER SERVICING 



iEsI'd jince 1979) 

We repair — on the premises — quick 
turnround 

* Commodore 

* BBC & Electron (Approved Service Centre) 

* Amstrad & Torch (Approved Service Centre) 

» Disc Drives. Printers, Monitors 
Mail Orders by phone Access & Visa accepted 



THE COPY DEADLINE FOR THE JUNE 
ISSUE OF YOUR COMMODORE IS 23RD OF 
MARCH. 



Computer repairs 

Fixed Super Low Prices! 

Inclusive of pans, labour and VAT 

1 week turnaround Collection/delivery available lor local area 




FIRST AID 
FOR 
TECHNOLOGY 



* SUPER OFFERS * 

£14 inc. • Free Game ELECTRON 
£22 Inc. * Free Game COMMODORE 1541 

£18 Inc. DISCORIVE 
£22inc. SPECTRUM 128 

£32 inc. C64P.S.U. for sale 

Please endow payment with ,tem - 3 month warranty on repair Please enclose ad-erf mth repa,r 

W.T.S. ELECTRONICS 
Y.C. Studio Master House, Chaulend Lane, Luton, LU4 8EZ. Tel: 0582 491949 

All rights rebcrvoQ 



SPECTRUM 
C64 
C16 

VIC20.C'4 
BBC 



£32 

£38 inc. 
£16 Inc. 
£20 Inc. 
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Readers Problems 

Though the Commodore 64 is one of 
(he world's most popular microcom- 
puters, it can be very difficult to find 
specific information about your 
particular machine. 

At the Your Commodore office we 
receive literally hundreds of letters 
from you, our readers, on a wide range 
of subjects ranging from the simple 
'Can you give mc the telephone 
number for...*, to the more complex 
Tm trying to write a program that uses 
a split screen. How do I do it?' 

Unfortunately, the volume of mail 
received has become so great that it 
is impossible to answer every letter and 
still manage to publish a magazine 
each month. 

For this reason we have felt it 
necessary to produce a number of 
guidelines for getting information 
from us: 

1) We cannot guarantee to answer 
every letter sent to the magazine. 
Should it become apparent that a 
number of readers are suffering from 
the same problem, then we will reply 
to the letter via the Letters page. 

2) A new helpline has been set up. This 
will be open for your queries on 



Tuesday and Thursday afternoons 
between 2.00pm and 4.00pm. We will 
not be able to deal with our telephone 
queries at any other time. If our tech- 
nical adviser is not available when you 
ring, then a message will be taken. 
3) If you are having problems with one 
of our listings, can you please let us 
know in writing. This will enable us 
to see if a number of people are having 
the same problem. When a common 
problem becomes apparent with a pro- 
gram, then a correction sheet will be 
issued. Enclose a self-addressed, 
stamped envelope and we will send you 
a copy of the correction sheet as soon 
as it is available. 

We are sorry that it has become 
necessary to instigate these rules. How- 
ever, we are sure that you will agree 
with us that the more time that we 
can spend making Your Commodore 
the most informative magazine 

around, the better. 

For program queries write to: 

Program Corrections 

Your Commodore 

1 Golden Square 

London 

WIR 3AB 

If you wish to telephone then call: 
01-437 0626 Extn 212 



Commodore Where Are 
You? 

At the Your Commodore office we are 
repeatedly asked for the address and 
telephone number of Commodore 
U.K. Many people, after referring to 
their computer manuals, believe them 
to be based in Corby. 

The Commodore plant at Corby was 
closed down some time ago. Repro- 
duced here you will find the correct 
address for Commodore U.K. 



Flow of Ideas 

Did you find the extra statement? 
The item tq be changed is: 

L=LEN(a$) 
in line 80 

Commodore Business Machine, (UK), 
Commodore House, The Switchback, 
Gardner Road, Maidenhead, 
Berks SL6 7XA. 
Tel: (0628) 770088 



The Nibbles 



By Alan Batchelor 



Flying High 

Twenty Your Commodore readers will 
be getting ready to take thier first fly- 
ing lessons in Digital Integrations F16 
fighter game. The twenty readers are 
all winners of our December 'Spot the 
Difference ' competition. 

ITie first winner will also receive 
a copy of Ian Allen's book Top Gun 
Fighters and American Jet Power. 

The lucky people in second and 
third place will receive a copy of F16 
Fighting Falcon by Peter R Foster as 
well as their game. 

Trie lucky winners are: 



1st Place 

P Fullwood, Darlaston 
2nd and 3rd 

C. Appleby, Annesley 
Sgt C Jeffery, Dulmen 
The Other 17 

D. Smellie, Caithness 
K.Williamson, Walthamstow 
CB.Simcoe, Kettering 
P.Bridgens, RAFHebn 
P.Graham, Sion Mills 
TJ.Catley, Woking 
R.Woricy, Harrow 
D.Parish, West Wickham 

A. Luc. Brussels 
P. Mc Brien, Coragh 
LCPL M I Copeland, BFPO 30 
J.Hadlow, Broxburn 
G.Tumer, Canvey Island 
S. Fontag, Woodford Green 

B. Buckley, Oldham 
G.Renton, Binstead 
P.Cotton, Burton-On-Trent 

Digital Integration has been in- 
formed of the winners and will be 
despatching the prizes. 



'thi 6£st rvjs i £ww t»t> was 
to PtocxfiM cortruT? 

Dif&CTCXr Of 8£*# H/tr 

coLLecno*/ /vn> ths cup 

f At&UlK 6$ HfitSk* A pAY 

Hoes ay wwr m cc^sevrw 
AT />/1fiTl£Z J 
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Britain's First Music Magazine for the Computer User! 

Featuring Reviews on Hardware & Software across all formats - Micro Music 
the magazine the Computer Musician has been waiting for. 
Available 10th March from all good Newsagents 




INTERNATIONAL 




9 



be* 



ONAL 






GAMES REVIEWED: 



Return of the Jedi 
Soccer Simulator i 

Techno Cop 
Robocop i 
Batman 





Software limited, Winchester House, 
Kf, Harrow HA3 7SJ, England 

bne on 01 861 1166 





UNBEATABLE ^p" <Jn 
PROGRAMS: 

Auto Scroll A Balance Sheet 
Array Storage A Icon 64 
C128 80 columns 



